Задача в Паскале. Создайте массив А[1 ... 7] с помощью генератора случайных чисел и выведите его на экран. Увеличьте все его элементы в 2 раза.

Question

Информатика

Гана

15 октября, 08:57

Задача в Паскале. Создайте массив А[1 ... 7] с помощью генератора случайных чисел и выведите его на экран. Увеличьте все его элементы в 2 раза.

+1

Ответы (1)

Знаете ответ?

Вениамин · Answer 1

Var a:array [1 ... 7] of real;

i:integer;

begin

write ('Массив: ') ;

for i:=1 to 7 do

begin

a[i]:=random (201) - 100;

write (a[i],' ') ;

end;

writeln;

write ('Массив * 2: ') ;

for i:=1 to 7 do

begin

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

write (a[i],' ') ;

end;

end.