Задача 1 Var i,sum:integer; mas:array [1..10] of integer; Begin for i:=1 to 10 do begin mas[i]:=random(20); write(' ',mas[i]); sum:=sum+mas[i]; end; writeln; write('Среднее арифметическое этих чисел = ',sum/10); End.
Задача 2 Var i,max:integer; Begin readln(i); while (i<>0) do begin if (i>max) then max:=i; readln(i); end; Writeln('Максимальное число: ',max); End.
1. Современный вариант (коротко, быстро и наглядно, кто знает). Так уже начали учить в некоторых школах.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ArrRandom(ReadInteger('n='),1,300).Println. Where(k->(k>=100) and ((k mod 100) div 10=0)); if s.Count>0 then Writeln(s.Max) else Writeln('Нет элементов') end.
2. А так по-прежнему учат в большинстве школ. Стиль "80-х годов века". Долго, длинно, можно наделать ошибок, но по-другому эти учителя сами не могут.
const nn=100; var i,n,max:integer; a:array[1..nn] of integer; begin Write('n='); Read(n); Randomize; max:=0; for i:=1 to n do begin a[i]:=Random(300)+1; Write(a[i],' '); if (a[i]>=100) and ((a[i] mod 100) div 10=0) then if a[i]>max then max:=a[i] end; Writeln; if max>0 then Writeln(max) else Writeln('Нет элементов') end.
Var i,sum:integer;
mas:array [1..10] of integer;
Begin
for i:=1 to 10 do begin
mas[i]:=random(20);
write(' ',mas[i]);
sum:=sum+mas[i];
end;
writeln;
write('Среднее арифметическое этих чисел = ',sum/10);
End.
Задача 2
Var i,max:integer;
Begin
readln(i);
while (i<>0) do begin
if (i>max) then max:=i;
readln(i);
end;
Writeln('Максимальное число: ',max);
End.