1)const n=5; var a:array[1..n] of byte;k,i:integer;beginwriteln('введите числа , для изменения кол-ва вводимых чисел изменить в 1-ой строчке с 5на любое значение >2 ');for i:=1 to n do readln(a[i]);for i:=1 to n doif a[i] div 10 > a[i] mod 10 then inc(k); write(k);end.
2)const n=5; var a,b:array[1..n] of byte;sr,max,k,i:integer;beginwriteln('для изменения кол-ва чисел изменить в 1-ой строчке с 5на любое значение >2 ');for i:=1 to n do a[i]:=random(100);for i:=1 to n do b[i]:=a[i];for i:=1 to n do max:=max+a[i];sr:=max div n;writeln('начальный массив');for i:=1 to n do writeln(a[i]);write('сред арифм= ',sr);writeln;for i:=1 to n do if sr> b[i] then b[i]:=0;for i:=1 to n do writeln(b[i]);end.
Var
a: array[1..10] of integer;
i, count: integer;
begin
for i:=1 to 10 do
readln(a[i]);
count:=0;
for i:=1 to 10 do
if a[i] < 70 then
inc(count);
writeln(count);
end.
type diapazon=-20..60;
var a: array [1..15] of diapazon;
i,max,min: integer;
begin
max:=1;
min:=1;
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
if (max/min) > 2 then writeln('Верно') else writeln('Неверно');
end.
Ответ: Операционная система