Информатика, 9 класс
Готов
Вопрос от 2262 дня назад
Составьте программу,которая формирует массив из пятнадцати случайных целых чисел от -20 до 20 и: а)увеличивает в 2 раза числа, кратные 5, а остальные уменьшает в 2 раза.
Ответ от
program z1; var a:array[1..15] of integer; b:array[1..15] of real; i:integer; begin for i:=1 to 15 do a[i]:=random(41)-20; writeln('исходный массив: '); for i:=1 to 15 do write(a[i], ' '); writeln; for i:=1 to 15 do if a[i] mod 5=0 then b[i]:=a[i]*2 else b[i]:=a[i]/2; writeln('полученный массив: '); for i:=1 to 15 do write(b[i], ' '); writeln; end.