Паскаль. Матрица.Блок-схема.

@kirillcherkesov · Регистрация: 17.01.2010

Author24 — интернет-сервис помощи студентам

Здравстуйте.Помогите пожалуйста с блок-схемой. и проверьте пожалуйста написанную мной программу...Задана матрица E(N,M) N<=15,M<=20.Отпечтать номера и средние арифметические тех строк, которые начинаются с 1. Если таких строк не окажется, то выдать соответствующее сообщение.

Pascal

Program z1;
var E:array[0..15,0..20]of integer;
      sr,i,j,k,m,n:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to m do
read (E[ i,j]);
begin
k:=0;
for i:=1 to n do
if E[i,1]=1 then
begin
k:=1;
sr:=0;
for j:=1 to m do
sr:=sr+E[i,j];
writeln('Строка ',i,' среднее=',sr/m:0:2);
end;
if k=0 then writeln('Таких строк нет!');
end;
end.

@ZayKa^_^ · 30.05.2010, 12:28

Блок-схема в архиве

	30.05.2010, 12:28