1) uses crt; const size = 10; var a:array [1..size] of integer; i,p:longint; begin p:=1; randomize; for i:=1 to size do begin a[i]:=random(20); write (a[i],' '); if (a[i] mod 3 = 0) then p:=p*a[i]; end; writeln; writeln (p); end.
2) uses crt; const size = 10; var a:array [1..size] of integer; i:integer; s:real; begin s:=0; randomize; for i:=1 to size do begin a[i]:=random(4)+1; write (a[i],' '); s:=s+a[i]; end; writeln; s:=s/size; writeln (s); end.
1)constn=10;var i,k,min:integer; mas: array [1..n] of integer; begin randomize; for i:=1 to n do mas[i]:=random(65); min:=mas[1]; for i:=1 to n do if mas[i] < min then begin min:=mas[i]; k:=i; end; for i:=1 to n do write(mas[i]:4); writeln(); writeln('minimalnoe=',min); writeln('index=',k); end. 2)constn=10;var i,k,min:integer; mas: array [1..n] of integer; begin randomize; for i:=1 to n do mas[i]:=random(65); for i:=1 to n do write(mas[i]:4); for i:=1 to n do if mas[i] mod 3 = 0 then mas[i]:=0; writeln(); for i:=1 to n do write(mas[i]:4); end.
program z1;
var a,m:integer;
begin
m:=30000;
repeat
read(a);
if (a <> 0) and (a mod 2 = 0) and (a mod 10 <> 2) and (m > a) then m:=a
until a = 0;
writeln(m)
end.
Объяснение:
m равно максимально возможному чётному числу (согласно условию)
Цикл с пост условием:
ввод числа
проверка числа (верно, когда верны все условия):
не 0 (a <> 0) - не является условием окончания последовательности
число чётное (a mod 2 = 0)
число не оканчивается на 2 (a mod 10 <> 2)
число меньше m (m > a)
если проверка пройдена, то переменной m присваивается значение числа
Проверка условия выхода из цикла (a = 0)
Вывод m