var a: array [1..100] of integer;
i,max,min: integer;
begin
for i:= 1 to 100 do
begin
a[i]:= random(50)-25;
write(a[i]:5);
end;
min:= a[1];
max:= a[1];
for i:= 1 to 100 do
begin
if a[i] > max then max:=a[i];
end;
for i:= 1 to 100 do
begin
if a[i] < min then min:=a[i];
end;
writeln;
writeln('min = ',min);
writeln('max = ',max);
writeln('min + max = ',min + max);
end.
Называют понятной. сама делала эту работу)
Var
i,n:integer;
begin
read(n);
for i := 1 to n do
if (i mod 2) * (i mod 3) * (i mod 5) = 0 then
write(i,' ')
<span>end.</span>
Var a, b, c, d, e, f, final : integer;
begin
write('введите 6 чисел через пробел: ');
readln(a, b, c, d, e, f);
final := (a + b + c + d + e+ f) / 6;
writeln('среднее арифметическое равно , final);
end.