создаем массив из десяти элементов и две переменные: ch(сумма), proiz(произведение).
Далее вводим массив с клавиатуры и в цикле начинаем проверять его элементы:
Если остаток от деления(mod) равен нулю(т.е число делится на два), то мы просто пихаем его в сумму, а если число делится на пять и больше десяти, то мы запихиваем его в произведение(перед циклом proiz = 0, так как 0 * любое число = 0).
После завершения цикла выводим сумму и произведение на экран.
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016 begin var k:=0; var n:=ReadInteger(); var nmax:=0; while n<>0 do begin Inc(k); if n mod 10 = 0 then if n>nmax then nmax:=n; n:=ReadInteger() end; var cntrl:=ReadInteger(); Writeln('Получено ',k,' чисел'); Writeln('Полученное контрольное значение: ',cntrl); Writeln('Вычисленное контрольное значение: ',nmax); if cntrl=nmax then Writeln('Контроль пройден') else Writeln('Контроль не пройден') end.
Салат оливье. ингредиенты 1 баночка зеленого горошка (400г) 300 г мяса 4 яйца 350 г картофеля 100 г соленых или маринованных огурцов 150 г лука соль майонез алгоритм приготовления: 1.мясо отварить до готовности (варить около 40 минут после закипания) . 2.остудить. 3.лук мелко покрошить. 4.залить его кипятком и оставить на 10 минут, затем воду слить, лук промыть в холодной воде. 5.мясо нарезать кубиками. 6.картофель почистить, нарезать кубиками. 7. яйца мелко покрошить. 8.огурцы мелко нарезать. 9.смешать картофель, мясо, лук, горошек (воду слить) , яйца, огурцы. 10.посолить. 11. заправить майонезом. 12. украсить по вкусу, например зеленым горошком
var a: array [1..10] of integer;
ch, proiz, i: longint;
begin
read(a);
ch := 0;
proiz := 1;
for i := 1 to 10 do
begin
if (a[i] mod 2 = 0) then
ch := ch + a[i];
if (a[i] mod 5 = 0) and (a[i] > 10) then
proiz := proiz * a[i];
end;
writeln(ch);
writeln(a[i]);
end.
Объяснение:
создаем массив из десяти элементов и две переменные: ch(сумма), proiz(произведение).
Далее вводим массив с клавиатуры и в цикле начинаем проверять его элементы:
Если остаток от деления(mod) равен нулю(т.е число делится на два), то мы просто пихаем его в сумму, а если число делится на пять и больше десяти, то мы запихиваем его в произведение(перед циклом proiz = 0, так как 0 * любое число = 0).
После завершения цикла выводим сумму и произведение на экран.
Надеюсь всё понятно)