Обрахувати і запам’ятати суму і число елементів кожного стовпця матриці, що більші ніж 5.
Результати роздрукувати у вигляді двох рядків.

A(11;17)

160

176

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

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

alyonavasnecova34

Информатика

4,8(60 оценок)

1- var a: array[1..5] of integer; s,p,k,i,c : integer; begin for i: =1 to 5 do begin write('ведите число '); readln(a[i]); end; s: =0; c: =0; p: =1; k: =0; for i: =1 to 5 do begin if a[i]> 0 then begin s: =s+a[i]; c: =c+1; end; if (a[i] mod 12)< > 0 then p: =p*a[i]; if (a[i]mod 2)=0 then k: =k+1; end; writeln('средняя сумма положительных чисел= ',s/c) ; writeln('произведение чисел не кратных 12= ',p) ; writeln('количество чётных чисел= ',k) ; end.можно сделать и с одним циклом. если надо - отпишись. 2расчёт с учётом того что у сотрудников разная зптоже можно сделать с одним циклом.var a: array[1..5] of integer; i,zp: integer; begin for i: =1 to 5 do begin write('ведите зарплату сотрудника ',i,': '); readln(a[i]); end; zp: =0; for i: =1 to 5 do zp: =zp+a[i]; write('общая сумма=',zp); end. 3var a: array[1..20] of integer; i,p,s,summ: integer; begin for i: =1 to 20 do begin write('ведите число '); readln(a[i]); end; p: =1; s: =0; summ: =0; for i: =1 to 20 do begin if a[i]> 8 then begin p: =p*a[i]; s: =s+1; end; if (a[i]mod 15)< > 0 then summ: =summ+a[i]; end; writeln('среднее произведение чисел больше 8= ',p/s); write('семма чисел не кратных 15= ',summ); end.и это тоже можно с одним циклом