Составьте программу ввода массива состоящего из 14 элементов находящийся в диапазоне [ 300; 400 ] заполнение происходит с оператора случайных чисел и вывода полученного массива с комментарием в строку
Const n=14; var a : array[1..n] of integer; i : integer; begin Randomize; writeln('Сгенерированный массив:'); for i:=1 to n do begin a[i]:=random(101)+300; write(a[i],' '); end; writeln; end.
Вот: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 const n=5; var a: array[1..n,1..n] of integer; i,j,s: integer; begin s: =0; randomize; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(10); write(a[i,j]: 4); if (i+j) mod 3=0 then s: =s+a[i,j]; end; writeln; end; writeln('s=',s); end.
var a : array[1..n] of integer;
i : integer;
begin
Randomize;
writeln('Сгенерированный массив:');
for i:=1 to n do
begin
a[i]:=random(101)+300;
write(a[i],' ');
end;
writeln;
end.