Программа Паскаль

[KILLDAFROG]

Даны две матрицы нужно найти среднее арифметическое элементов каждой матрицы меньших заданного числа сравнить их. ввод и вывод из файлов.
Люди помогите завтра экзамен

[0479]

Ввод и вывод из файла числа или матрицы?

[KILLDAFROG]

ввод матрицы из файла а вывод числа тож в файл

[Mad_Cat]

аська 723-32[один]! - готов взяться!

[0479]

Задачку я вашу решил.Однако Pascal не очень люблю.А ввод и вывод из файлов это возня специфическая. Если кто то хочет то пусть возится или за вознаграждение возится. Решение такое.Матрица 5 на 5. Меньшшие элементы ищются складываются и находится среднее. Также всё сравнивается. Число вводится с клавы.

var s1,s2:integer;
n1,n2,i,j,n,i1,j1:integer;
sr1,sr2:double;
m:array[1..5,1..5] of integer;
m1:array[1..5,1..5] of integer;
begin
writeln('Vvedite chislo dlya sravnenia');
readln(n);
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
m[i,j]:=random(100);
write(m[i,j]:4);
end;writeln;
end;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if m[i,j]<n then
begin
s1:=s1+m[i,j];
n1:=n1+1;
end;
end;
end;
writeln('SUMMA V PERVOY MATRICE ',s1);
sr1:=s1/n1;
writeln('Sr arifm v  perv matrice ',sr1);
for i1:=1 to 5 do
begin
for j1:=1 to 5 do
begin
m1[i1,j1]:=random(100);
write(m1[i1,j1]:4);
end;writeln;
end;
for i1:=1 to 5 do
begin
for j1:=1 to 5 do
begin
if m1[i1,j1]<n then
begin
s2:=s2+m1[i1,j1];
n2:=n2+1;
end;
end;
end;
writeln('SUMMA VO VTOROY MATRICE ',s2);
sr2:=s2/n2;
writeln('SR AR VO VTOR MATRICE ',sr2);
if sr1>sr2 then writeln ('Pervoe srednee > vtorovo') else if sr2>sr1
then writeln ('Vtoroe srednee > pervovo ')
else if sr2=sr1 then writeln ('Srednie ravni');
readln;
end.

Механизмы реализованы.Если будете пользовать проверь.Писал на скорую руку.Но вроди всё работает. Если малость в чём то соображаешь то ввод и вывод прикрутить недолго.

PS:лучше не обращайтесь сюда с жалобными вопрошениями о помощи. Здесь помогают а не делают за вас.

[KILLDAFROG]

Спасибо за помощь ))Я все понимаю но в информатике я не очень а учиться как то надо((

[0479]

Если помог то благодарность в репутацию.