1.
const n=10;
var a:array [1..n] of integer;
i:integer;
begin
for i:= 1 to n do read (a[i]);
write(' Массив: ');
for i:= 1 to n do write (a[i],' ');
writeln;
write('Массив в обратной последовательности: ');
for i:= n downto 1 do write (a[i],' ')
end.
2.
const n=10;
var a:array [1..n] of integer;
i,s:integer;
begin
for i:= 1 to n do read (a[i]);
write('Массив: ');
for i:= 1 to n do write (a[i],' ');
writeln;
write ('Номера нулевых элементов: ');
for i:= 1 to n do if a[i]<0 then
begin
a[i]:=0;
write(i,' ')
end
end.
3.
const n=10;
var a:array [1..n] of integer;
i,sp,kp,so,ko:integer;
begin
for i:= 1 to n do read (a[i]);
write('Массив: ');
for i:= 1 to n do write (a[i],' ');
writeln;
for i:= 1 to n do
begin
if a[i]>0 then
begin
sp:=sp+a[i];
kp:=kp+1
end;
if a[i]<0 then
begin
so:=so+a[i];
ko:=ko+1
end;
end;
writeln('Среднее арифметическое положительных элементов массива равно ',sp/kp:0:3);
writeln('Среднее арифметическое отрицательных элементов массива равно ',so/ko:0:3)
end.
Петя заболел на зимних каникулах. Пока все играли в снежки, катались на лыжах с горки...Петя сидел дома и учил Пушкина. В пятом классе они как раз проходят произведения Пушкина и Марья Ивановна задала на каникулы учить. Петя сам себя не узнал, так как он был круглым двоечником. Если бы не его простуда, он бы сейчас гулял с друзьями и получил по стихотворению 2! Петя обиделся на своих друзей, потому что они даже не пришли узнать, что он, да как он!
В школе, Петины друзья заметили, что из друга нет и позвонили ему, но он не поднял трубку домашнего телефона. Тогда друзья решили прийти к нему домой и узнать, что случилось!
Когда они пришли, у Пети на лице засияла улыбка. Он с радостью открыл им дверь! Они пили чай и вместе делали уроки!
нц для к от 1 до 11
если Dat[к] < 25 то
m : = Dat[к]
все
КЦ
все элементы последовательно сравниваются с числом 25 (Dat[к] < 25).
Переменной m будут последовательно присваиваться значения тех элементов массива, которые < 25 (20, 19, 22, 24, 21).
Конечное значение переменной m =21 (последний из элементов массива < 25).