Вопрос по информатике:
Составьте программу, которая формирует массив из 15 случайных чисел вдиапазоне от 15 до -15 и:
1) отрицательные числа заменяет наих модули, а неотрицательные возводит в квадрат
2) четные числа заменяет на 2, а от нечетных - отнимает 5
3) числа, кратные 6 уменьшает в 2 раза, а у остальных элементов находит целое от деления на 5
4) меняет местами значения третьего и 11 элементов
На экран вывести исходный и преобразованный массив с поясняющим текстом
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 06.07.2017 22:22
- Информатика
- remove_red_eye 11894
- thumb_up 55
Ответы и объяснения 1
var a:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:4); end;
writeln;
for i:=1 to 15 do if a[i]>=0 then a[i]:=sqr(a[i]) else a[i]:=abs(a[i]);
for i:=1 to 15 do write(a[i]:4);
end.
var a:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:3); end;
writeln;
for i:=1 to 15 do if a[i] mod 2=0 then a[i]:=2 else a[i]:=a[i]-5;
for i:=1 to 15 do write(a[i]:3);
end.
var a:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:3); end;
writeln;
for i:=1 to 15 do if a[i] mod 6=0 then a[i]:=a[i] div 2 else a[i]:=a[i] div 5;
for i:=1 to 15 do write(a[i]:3);
end.
var a:array[1..15]of integer;
i,k:integer;
begin
for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:3); end;
writeln;
k:=a[3];
a[3]:=a[11];
a[11]:=k;
for i:=1 to 15 do write(a[i]:3);
end.
- 08.07.2017 09:47
- thumb_up 61
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.