Проверка пройденного материала презентация

чисел

Program Mass;
Var b:Array[1..10] of Integer;
I,N:Integer;
Begin
For I:=1 to N do b[1]:=round(random*10);
For I:=1 to N do Write(b[I], ‘ ‘);
Readln;
End.
 

Заполнить и вывести массив G(5), заданного
а) с помощью функции Random;
б) с клавиатуры.
На «4» и «5». В массиве F(12), заданного с помощью функции Random, найти:
а) минимальный элемент;
б) произведение всех элементов
 

i: integer;
max:real;
begin
for i:=1 to 6 do readln(K[i]);
for i:=1 to 6 do write(K[i]:5:1,' ');
max:=К[1];
for i:=1 to 6 do if К[i]>max then max:=K[i];
writeln('max=',max:5:1);
end.

сумму всех элементов

i: integer;
s:real;
begin
for i:=1 to 6 do readln(K[i]);
for i:=1 to 6 do write(K[i]:5:1,' ');
s:=0;
for i:=1 to 6 do s:=s+K[i];
writeln('s=',s:5:1);
end.