const nn=100; var a:array[1..nn] of integer; i,n,max:integer; begin Write('n='); Read(n); randomize; max:=-100; for i:=1 to n do begin a[i]:=Random(101)-50; Write(a[i],' '); if a[i]>max then max:=a[i] end; Writeln; Writeln('Max=',max) end.
А) Массиву будут принадлежать 10 случайных чисел, так как задан цикл от 1 до 10, а случайные числа благодаря команде random, так же можно заменить, что есть (101)-50, а это значит, что в значениях массива, будут и отрицательные числа. б) Еще проще, тут уже цикл задан от 1 до 20, то бишь 20 значений для массива(20 цифр), а a[i] := i это значит, то что, массиву будут присвоены числа по порядку от 1 до 20, потому что массив = i в) Тут цикл задан от 1 до 5, и массив каждый раз будет выполнять действие, заданное по условию, то бишь умножить и вычесть, i - каждый раз будет увеличиваться на 1, и получиться, что (2*1-1) (2*2-1), и так число будет увеличиваться до 5.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Max=',a.Max)
end.
Пример
n= 13
-11 16 -24 5 5 3 42 45 -46 45 22 43 -4
Max=45
2. А так учат в большинстве школ...
const
nn=100;
var
a:array[1..nn] of integer;
i,n,max:integer;
begin
Write('n='); Read(n);
randomize;
max:=-100;
for i:=1 to n do begin
a[i]:=Random(101)-50;
Write(a[i],' ');
if a[i]>max then max:=a[i]
end;
Writeln;
Writeln('Max=',max)
end.
б) Еще проще, тут уже цикл задан от 1 до 20, то бишь 20 значений для массива(20 цифр), а a[i] := i это значит, то что, массиву будут присвоены числа по порядку от 1 до 20, потому что массив = i
в) Тут цикл задан от 1 до 5, и массив каждый раз будет выполнять действие, заданное по условию, то бишь умножить и вычесть, i - каждый раз будет увеличиваться на 1, и получиться, что (2*1-1) (2*2-1), и так число будет увеличиваться до 5.