Мини проект урок 2 Определи количество колонок первого раздела документа, изображенного на рисунке.

Назад

Проверить

1
2
3
4
дз

233

433

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

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

Топтоппатимейкер

Информатика

4,7(66 оценок)

Var i,j,ph,pl: integer; a: array[1..5,1..5] of integer; d,sn,min: real; begin ph: =1; pl: =1; for i: =1 to 5 do begin for j: =1 to 5 do begina[i,j]: =random(100)-50; write(a[i,j]: 4); end; writeln; end; writeln; writeln; for i: =1 to 5 do begin for j: =1 to 5 do begin if i < 3 then begin ph: =ph* a[i,j]; write(a[i,j]: 4); end; end; if i < 3 then writeln; end; for i: =1 to 5 do begin for j: =1 to 5 do begin if i > 3 then begin pl: =pl* a[i,j]; write(a[i,j]: 4); end; end; writeln; end; write('ph =',ph: 10,'pl =',pl: 10); end.