Паскаль.Найти сумму элементов двумерного массива размером 4 на 4. Заполнение произвести с генератора случайных чисел. Результат суммы вывести на экран.

165

260

Посмотреть ответы 1

Ответы на вопрос:

KSUMOKLOKOVA

Информатика

4,6(90 оценок)

Program p1; var a,a1,b,k,s,m,l: integer; begin readln(a); a1: =a; s: =0; m: =0; while a< > 0 do begin b: =a mod 10; if a mod 2=0 then begin k: =k+1; s: =s+b; end; a: =a div 10; if (a< 10) and (m=0) then m: =b; end; while a1< > 0 do begin b: =a1 mod 10; if b=m then l: =l+1; a1: =a1 div 10; end; writeln('сумма четных цифр: ',s); writeln('количество четных цифр: ',k); writeln('вторая цифра встречается: ',l,' раз'); end.