Программа на Паскале

[Skywoker95_95]

Программа на Паскале

Средний уровень
Вычислить среднее квадратичное значение для каждой из N последовательностей вещественных чисел (с переменным числом членов), размещенной в текстовом файле INPUT32.TXT.
Формат файла
1я строка - N
2я строка - число членов последовательности; набор чисел первой последовательности, через пробел
...
N+1я строка - число членов последовательности; набор чисел последовательности N, через пробел
Я написал программу, но не уверен что она верна. Если есть ошибки напишите в исправленном виде.

Program texts33;
Var k: text;
m, n, i, j, x, z:integer;
begin
// инициализация //
Assign(k, 'Z:\input31.txt');
Reset (k);
// считываем из файла N, M //
Read (k,n);
Read (k,m);
// поиск среднего квадратического //
For i:=1 to n do
begin
z:=0;
For j:=1 to m do
Begin
Read (k, x);
z:=z+x*x;
end;
Writeln (sqrt(z/m), 'среднее квадратичное строки', i);
end;
close (k);
end.

 

[Vladimir_S]

Я написал программу, но не уверен что она верна.

И правильно. Не верна.

 

[Skywoker95_95]

А как должна быть

 

[Skywoker95_95]

Напишите как должна быть написана программа?

 

[Vladimir_S]

Напишите как должна быть написана программа?

И не подумаю. С такими, как Вы, позволяющими себе закидывать задачки на форум (да еще с пометкой "срочно"), а потом больше не появляться, я, извините, дела иметь не желаю. Ищите дурачков-ишачков в другом месте. А лучше учитесь сами отлаживать программы.
Ваша программа содержит две ошибки.