GAECHKA
Твоя помощница в решении задач

Массив Двумерный

Дан массив .найти среднее арифметическое отрицательных элементов первой строки
0
вопрос задан

Источник


1 ответ
Uses Crt;
const
n=5;
var
a:array[1..n,1..n] of integer;
s,i,j,k:integer;
begin
s:=0; k:=0;
for i:=1 to n do 
for j:=1 to n do 
a[i,j]:=random(-10,10);
for i:=1 to n do begin
for j:=1 to n do 
write(a[i,j]:4);
writeln; end;
for j:=1 to n do begin
if a[1,j]0 then begin
s:=s+a[1,j]; inc(k);
end; end;
if k=0 then begin
writeln('net takih el');
end else
writeln('sr arif otr el 1 str=',s/k);
end.