Var
s: real;
i: integer;
a: array [1..11] of real;
begin
for i := 1 to 11 do
read(a[i]);
s := 0;
for i := 1 to 11 do
if (a[i] >= 3) and (a[i] <= 6) then
s := s + a[i];
writeln(s);
end.
УчитЕЛЬ, дрЕЛЬ, мЕЛЬ, трЕЛЬ, цЕЛЬ, щЕЛЬ, ягЕЛЬ,акварЕЛЬ
<span>program zadacha;</span>
<span>var i,s: integer;</span>
<span><span>a: array [</span>1..10<span>] of </span>integer;</span>
begin
<span>writeln ('Введите элементы массива');</span>
<span>for i:=1 to 10 do</span>
<span>begin</span>
<span>write ('a[',i,']=');</span>
readln (a[i]);
<span>if a[i]<>0 then s:=s+1;</span>
if a[i]>0 then a[i]:=a[i]-20;
<span>end;</span>
<span>writeln ('В массиве ',s,' не нулевых
элемента');</span>
for i:=1 to 10 do
write (a[i],' ');
<span>end.</span>
Var m:array[1..10] of integer; i,max,cnt:integer;
begin
max := -1000;
write('Massive: ');
for i := 1 to 10 do begin
m[i] := random (11)-5;
write(m[i],' ');
if m[i] > max then begin inc(cnt); max := m[i]; end;
end;
writeln;
writeln('Максимальное число: ',max);
writeln('Всего максимальных чисел: ', cnt);
end.
байта.
<span> - это перевод 1 Мбайта в байты</span>