Задан массив из 10 случайных целых чисел от 0 до 50. Увеличить в 2 раза элементы массива кратные 5, остальные элементы массива уменьшить в 2 раза.

Question

Информатика

Камилла

1 мая, 14:02

Задан массив из 10 случайных целых чисел от 0 до 50. Увеличить в 2 раза элементы массива кратные 5, остальные элементы массива уменьшить в 2 раза.

+1

Ответы (1)

Знаете ответ на вопрос?

Ерофей · Answer 1

Uses crt;

var a=array[1 ... 10] of integer;

i:integer;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random (50) ;

if (a[i]mod5=0) there

a[i]:=a[i]*2;

else

a[i]:=a[i]/2;

for i:=1 to 10 do

writeln (a[i]) ;

end.