Program sum_nechet; var a: array [0..100] of integer; var b,i,c,k:integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(10); writeln(a[i]); // Это можно не писать, просто чтобы видеть числа в массиве, если интересно. end; c := 0; b := 0; for i:=1 to 10 do begin if a[i] mod 2 = 0 then b := b + a[i] else c := c+ a[i]; end; writeln('Нечетных ' , c); writeln('Четных ' , b); k:=0; for i:=1 to 10 do begin if a[i] = 0 then k:= k+1 end; writeln('Нулей ' , k) end.
Прочитать четверостишие
Воспроизвести четверостишие в памяти
Рассказать четверостишие без единой ошибки
Объяснение:
Начало
Выполняется действие Прочитать четверостишие.
Затем, выполняется действие Воспроизвести четверостишие в памяти.
Затем, проверяется условие Рассказать четверостишие без единой ошибки.
Если условие верно (Руслан рассказал четверостишие без единой ошибки) цикл закончился. Если нет, то цикл идёт заново
(Выполняется действие Прочитать четверостишие.
Затем, выполняется действие Воспроизвести четверостишие в памяти.
Затем, проверяется условие Рассказать четверостишие без единой ошибки.
Если условие верно (Руслан рассказал четверостишие без единой ошибки) цикл закончился.)
Так будет по кругу, пока Руслан не расскажет четверостишие без единой ошибки.