Задачки в Делфи

1) Дан одномерный массив, вычислите среднее арифметическое.
2) Дана матрица размером 5х10. Найти минимальное значение среди сумм элементов всех ее столбцов и вывести это минимальное значение и номер столбца.
3) Багаж пассажира характеризуется количеством вещей и общим весом вещей. Данные о багаже представляют запись характеризующие 2 полями: кол-во вещей(целый тип), вес в кг(действительный тип). Найти средний вес одной вещи, который не отличается от общего среднего арифметического 0,3кг.
4) Дано имя файла с целыми числами. Вывести кол-во его элементов.
5) Вывести строку длиной n(четное число), которое состоит из C1 и C2.

Решение задачи №1 (кстати не указано размерность массива. использовал 5 элементов):

[php]
Program test;
Var i,summ:Integer;
massiv: array [1..5] of Integer;
Begin
summ:=0;
for i:=1 to 5 do
begin
Write(‘Введите элемент массива: ‘);
ReadLn (massiv[i]);
summ:=summ+massiv[i];
end;
Write(‘среднее арифметическое массива равно: ‘, summ/5);
WriteLn;
End.
[/php]

Решение задачи №2 (на примере массива 3 на 3). Массив 5 на 10 сами переделаете.

[php]
{Дана матрица размером 5х10. Найти минимальное значение
среди сумм элементов всех ее столбцов и вывести это
минимальное значение и номер столбца.}
Program massiv;
Var massive: array[1..3,1..3] of Integer;
i,j : Integer;
summ: Integer;
min :Integer;
stolbec:Integer;
Begin
min:=10000;
stolbec:=0;
WriteLn (‘Введите массив 3 на 3 по столбцам:’);
for j:=1 to 3 do
begin
summ:=0;
WriteLn (‘Ввод столбца ‘, j, ‘: ‘);
for i:=1 to 3 do
begin
Write (‘Ввод элемента [‘, j,i,’]’, ‘: ‘);
ReadLn(massive[i,j]);
summ:=summ+massive[i,j];
end;
if min > summ then
begin
min:=summ;
stolbec:=j;
end;
end;

WriteLn(‘Минимальная сумма элементов столбца № ‘,stolbec,’ равна ‘, min);
End.
[/php]

Задача №3.
Багаж пассажира характеризуется количеством вещей и общим весом вещей. Данные о багаже представляют запись характеризующие 2 полями: кол-во вещей(целый тип), вес в кг(действительный тип). Найти средний вес одной вещи, который не отличается от общего среднего арифметического 0,3кг.

Найти средний вес одной вещи? не верно описано!
который не отличается от общего среднего арифметического 0,3кг? Может на 0,3 кг?

[php]
Program veshi;
type bagag=record
kolvo:Integer;
ves:Real;
end;
Var
my_bagag:bagag;
i:Integer;
sred:Real;
Begin
WriteLn(‘Расчет среднего веса одной вещи багажа, который не отличается от среднего арифм. всех вещей на 0.3кг ‘);
Write(‘Введите количество вещей в багаже: ‘);
ReadLn(my_bagag.kolvo);
for i:=1 to my_bagag.kolvo do
begin
Write(‘Введите массу ‘, i, ‘ вещи багажа: ‘);
ReadLn(my_bagag.ves);
sred:=sred+my_bagag.ves;
end;
sred:=sred/my_bagag.kolvo;
WriteLn(‘Средний вес всех вещей равен ‘, sred);
End.
[/php]

Не правильная задача. Так бы решил до конца.

Простой пример на Pascal Примеры на Pascal (часть 4) Примеры на Pascal (часть 3)