подскажите пожалуйста почему программа не работает?:(

Условие:начиная с 1-ой строки находить и печатать среднее арифметическое элементов каждой строки и минимальное значение из значений элементов строки,заканчивая цикл, если разница среднего и минимального из элементов очередной строки оказалось больше заданного значения T.

Program Lab_over9000;
uses crt;
const
n = 7;
m = 3;
type
x = array[1..n, 1..m] of integer;
var
a : x;
i, min, j : integer;
s, t, v : real;
begin
clrscr;
write('T = ');
readln(t);

writeln('vvedite matrizu');
for i := 1 to n do
begin
for j := 1 to m do
begin
readln(a[i,j]);
end;
writeln
end;

while ((s-min)>t) and (i<n) do

for i := 1 to n do
begin
min := 1000; {zadaem zavedomo bolshoe 4islo}
s := 0; {obnulyaem summu}
for j := 1 to m do
begin
s := s + a[i,j]; {s4itaem summu}
if a[i,j] <= min
then min := a[i,j] {nahodim summu}
end;

s := s / m;

readln;
writeln('srednee arifmeti4eskoe: ', s, ' minimalny element ', min);

end;
readln
end.

Машиностоительная компания хранит отчет о своей прибыли за последние 20 лет в массиве чисел.Налоговая инспекция попросила предъявить среднюю прибыль компании за 10-15 годы работы компании.Кроме того,налоговая хочет сравнить эту прибыль с прибылью последнего года.Напишите программу для решения данной задачи.Выведите соответсвующее сообщение на экран.

огромное спасибо за предыдущий ответ))) 2.Дан массив целых чисел,содержащий 15 элементов.Вывести на экран индексы четных элементов массива.

дан массив чисел, содержащий 50 элементов.Найти среднее арифметическое элементов массива,стоящих на местах кратных 5

Здравствуйте,а для фрии паскаля как будет выглядеть предыдущая задача,которую послал александр?напишите пожалуйста с использованием FD FD(логических файлов)большое спасибо

Помогите с Турбо паскаль пожалуйста.составить программу.Создать новую матрицу так,чтобы строки новой матрицы являлись столбцами исходной матрицы.(4 столбца,3 строки)

благодарю,думаю подойдет!)если что напишу))

Для целочисленного массива Y вычислить среднее геометрическое элементов, кратных трем. Массив Y содержит К элементов. написать программу)

Здравствуйте,требуется решить задачу по информатике.

Нужно составить-блок схему!!!

1)Дана матрица A размерностью N*N.Значения элементов-произвольные числа.Найти максимальные элементы на каждой строке и сформировать из них новый одномерный массив B,упорядочив элементы в порядке возрастания их арифметических значений.Вывести на печать исходную матрицу А и новый массив В.

Нужна программа для нахождения наибольшего и наименьшего числа из введённых одновременно. чтобы всё в одной программе. помогите, пожалуйста.

Уважаемый PascalMan! Нужны программы №6 и 15 массивы1 с процедурами. Если можно к вечеру среды. Помоги пожалуйстаа

Предлагаю в раздел строки программу, которая запрашивает символ и строку и выводит на экран количество повторений введённого символа в строке.

http://files.mail.ru/438B020425EF49DD98C01295A1991605

Уважаемый PascalMan! Нужна программа #9 массивы с процедурами, буду крайне благодарен;) Если можно к вечеру среды:3 ааакапча