Заполнить массив из 5 элементов случайными числами из интервала от -15 до 15, вывести на экран, а затем увеличить каждый элемент в два раза и повторно вывести на экран.
Answers & Comments
StrangeT
Const N=5; var a:array[1..N] of integer; i:integer; begin for i:= 1 to n do begin a[i]:=-15+random(30); write(a[i]:3); end; writeln; for i:= 1 to n do begin a[i]:=2*a[i]; write(a[i]:3); end; end.
Answers & Comments
var
a:array[1..N] of integer;
i:integer;
begin
for i:= 1 to n do
begin
a[i]:=-15+random(30);
write(a[i]:3);
end;
writeln;
for i:= 1 to n do
begin
a[i]:=2*a[i];
write(a[i]:3);
end;
end.