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

Question

Информатика

Дюня

24 февраля, 11:43

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

+1

Ответы (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.