Какие современные программисты существуют и в каких программах они работают?

283

437

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

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

vintrast1

Информатика

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

Microsoft visual studio

tyrone12

Информатика

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

Const n=5; m=4; var a: array[1..n,1..m] of integer; i,j,k,d,s: integer; begin randomize; writeln('оценки: '); for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(4)+2; write(a[i,j]: 4); end; writeln; end; k: =0; s: =0; for i: =1 to n do begin d: =0; for j: =1 to m do begin if a[i,j]=2 then d: =d+1; s: =s+a[i,j]; end; if d> 0 then k: =k+1; end; writeln('количество неуспевающих = ',k); writeln('средний группы = ',s/n/m); end. пример: оценки: 5 3 3 5 3 4 2 2 4 5 5 5 2 4 4 2 5 2 3 3 количество неуспевающих = 3 средний группы = 3.55