Вопрос по информатике:
1)заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку,заменив все четные элементы на число 100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
- 08.10.2015 22:51
- Информатика
- remove_red_eye 3476
- thumb_up 36
Ответы и объяснения 1
1)
var i:integer;a:array[1..15] of integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(10)-10;
for i:=1 to 15 do write(' ',a[i]);
writeln(' ');
for i:=1 to 15 do if a[i] mod 2=0 then a[i]:=100;
for i:=1 to 15 do write(a[i],' ');
end.
2)
var i:integer;a:array[1..15] of integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(10)-10;
for i:=1 to 15 do write(' ',a[i]);
writeln(' ');
for i:=1 to 15 do a[i]:=a[i]-2*a[i];
for i:=1 to 15 do write(a[i],' ');
end.
- 09.10.2015 21:10
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.