const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
write ('Массив: ');
for i:=1 to n do
begin
a[i]:=random(56);
if (a[i]>=12) and (a[i]<=34) then k:=k+1;
if i<>n then write (i,' элемент: ',a[i],'; ') else write (i,' элемент: ',a[i],' ')
end;
writeln;
writeln ('Количество элементов, значения которых попадают в интервал от 12 до 34, равно ',k)
end.
Var
a, b, c:integer;
begin
readln(a, b, c);
if (a<b) then begin
if (a<c) then
writeln(a);
end
else
if (b<c) then
writeln(b)
else
writeln(c);
end.
В предмете под названием информатика
Вариант в Excel 2003.
каждая задача на отдельных листах