сформируйте массив из 10 случайных целых чисел на промежутке [-7,10] и увеличьте каждый элемент массива в 4

Question

Информатика

Мая

6 августа, 14:09

сформируйте массив из 10 случайных целых чисел на промежутке [-7,10] и увеличьте каждый элемент массива в 4

+3

Ответы (1)

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

Машаня · Answer 1

Uses crt;

const n=10;

var a:array [1 ... n] of integer;

i:integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random (17) - 7;

writeln (a[i]) ;

end;

writeln;

for i:=1 to n do

begin

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

writeln (a[i]) ;

end;

end.