Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел размером 3х2.

@romera · Регистрация: 02.06.2011

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

@Gik · 13.06.2011, 12:39

Pascal

const
n=3;
m=2;
var
i,j,k:integer;
ar:array [1..n,1..m] of integer;
sr:real;
begin
for i:=1 to n do
for j:=1 to m do begin
writeln('Vvedite ',i,' , ',j,' element: ');
read(ar[i,j]);
end;
for i:=1 to n do
for j:=1 to m do begin
if ar[i,j]<>0 then begin
inc(k);
sr:=sr+ar[i,j];
end;
end;
sr:=sr/k;
writeln('Srednee: ',sr:2,2);
end.

@Gik · 13.06.2011, 13:00

От того что ты добавил заголовок программе, ничего не изменилось!

@romera 61 / 61 / 2 Регистрация: 02.06.2011 Сообщений: 86
		1
	Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел размером 3х2. 13.06.2011, 12:18. Показов 1625. Ответов 2 Метки нет (Все метки) Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел размером 3х2. 0

@Gik 15 / 15 / 19 Регистрация: 12.06.2011 Сообщений: 30
	13.06.2011, 13:00	3
	От того что ты добавил заголовок программе, ничего не изменилось! 0

Опции темы

Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел размером 3х2.

Решение