Прошу помочь. Очень срочно!!!

[RAVEN23]

Решить задачи в Паскаль
Известен рост каждого ученика двух классов. Опредилите средний рост учеников каждого класса. Количество учащихся в каждом класе одинаковое.
Зарание Спасибо!!!

[Олвин]

Данные, наверное, содержатся в 2-х массивах?
Считаем сумму всех ростов и делим её на количество человек.
Так для каждого класса. Два одинаковых цикла. (а можно и в одном)

[RAVEN23]

Чувак напиши мне исходник плиз

[profi]

program abc;
var
a:array[1..20] of real;
b:array[1..20] of real;
i:integer;
sr_a,sum_a,sum_b,sr_b:real;
begin
for i:=1 to 20 do
begin
write ('a[',i,']='); readln(a[i]);
end;
for i:=1 to 20 do
begin
write ('b[',i,']='); readln(b[i]);
end;
for i:=1 to 20 do
begin
sum_a:=sum_a+a[i];
sum_b:=sum_b+b[i];
end;
sr_a:=sum_a/20;
sr_b:=sum_b/20;
writeln ('a=',sr_a);
writeln ('b=',sr_b);
readln;
end.

[RAVEN23]

Огромное спасибо!!!

[dimon180]

Памогите пожалуйста решить задачи на Turbo Pascal.
1.Вычислить Y=-1 если x>0, y=1 в противном случае.
2.Установить кратное данное целое число.
3.Проверка является ли введеное с клавиатуры целое число простым.
4.Известно, что на отрезке [a, b] имеется единственный корень уравнения X+sin(x)+f=0,где f-некоторое значение. найти этот корень методом деления отрезка пополам.
5.Используя цикл с параметрами найти значение выражения У.
y=(cose в верху е ax
x изменяется от 10 до 1
a изменяется от 0 с шагом 0,01.
6.написать программу, которая генерирует при последовательности из десяти случайных чисел в диапозоне от 1 до 10, выводит каждую последовательность на экран и вычесляет среднее арифметическое каждой последовательности.
7.Поиск минимального элемента массива.
8.Написать программу, которая вводит по строкам с клавиатуры двумерный массив и вычесляет сумму его элементов по строкам.
9.Написать программу, которая проверяет является ли введеная с клавиатуры строка целлым числом.
10.Составить процедуру удаляющего из первой строки символы, которые содержат во второй строке.
11.написать функцию glasn, которая возвращает значение true, если символ, полученный функцией в качестве аргумента, является гласной буквой русского алфавита.
12.написать программу, которая вычесляет средднее арифметическое чисел, находящихся в файле a:\numbers.txt.


Если кто-нибудь решит пошлите на адрес e-mail Stalker7076@mail.ru