var
m : array [1..10] of Integer;
i, b, s, p : Integer;
begin
Writeln('Введите массив:');
for i := 1 to 10 do
begin
Write(i, ': ');
Readln(m[i]);
end;
s := 0;
b := m[1];
p := 1;
for i := 1 to 10 do
begin
if b < m[i] then b := m[i];
if m[i] > 0 then s := s + m[i];
if m[i] mod 2 = 0 then p := p * m[i];
end;
Writeln('Наибольший элемент = ', b);
Writeln('Сумма неотрицаельных элементов = ', s);
Writeln('Произведение четных элементов = ', p);
ReadLn;
end.
1. Меньше тигра, больше кошки,
Над ушами кисти-рожки,
С виду — кролик, но не верь -
страшен в гневе этот зверь!
И ему не крикнешь «брысь»!
Потому что это ... (рысь)
2. Он слетает белой стаей
И сверкает на лету,
Он звездой прохладной тает
На ладони и во рту... (снег)
3. Кто осенью спать ложится,
А весной встаёт... (медведь)
4. Жил я посреди двора,
Где играет детвора.
Но от солнечных лучей
Превратился я в ручей... (снеговик)
5. Что вверх корнем растёт? (сосулька)
6. Из капкана он уйдёт,
Из аркана убежит,
В тундре звёздной и морозной
Всюду путь ему открыт... (ветер)
7. За белой дверцей стужа, лёд.
Там Дед Мороз, друзья, живёт. (холодильник)
8. Пришла из лесу птичница в рыжей шубке кур посчитать. (лисичка)
9. Белой стайкой мошкара
Вьётся, кружится с утра.
Не пищат и не кусают,
Просто так себе летают. (снежинки)
10. Скачет по лесу то взад, то вперёд,
Воет, гудит, деревья трясёт. (вьюга)
Program n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=102 to 1000 do if (i mod 3=0) then sum:=sum+i;
writeln('Сумма: ',sum);
end.
2)
Program n2;
var i: integer;
begin
for i:=10 to 99 do if (i mod 2<>0)then writeln(i);
end.