Информатика, 9 класс
Готов
Вопрос от 2257 дней назад
составьте программу которая формирует массив из пятнадцати случайных чисел от -20 до 20 и увеличивает в два раза числа кратные пяти, а остальные уменьшает в два раза
Ответ от
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.