И Вам добрый день!
Цитата:
Сообщение от lily
1)Найдите среднее арифметическое элементов заданного массива из 8 целых чисел и определите, сколько элементов данного массива больше среднего.
|
С этой школьно-ясельной ерундой соблаговолите управиться самостоятельно.
Цитата:
Сообщение от lily
2)Дана целочисленная матрица размера 5x6. Поменять местами первый и последний из столбцов.
|
Пожалуйста:
Код:
Const
M=5;
N=6;
Var
A:Array[1..M,1..N] of Byte;
i,j,C:Byte;
Begin
Randomize;
Writeln('Initial matrix:');
for i:=1 to M do
begin
for j:=1 to N do
begin
A[i,j]:=Random(100);
Write(A[i,j]:4);
end;
Writeln;
end;
Writeln;
Writeln('New matrix:');
for i:=1 to M do
begin
C:=A[i,1];
A[i,1]:=A[i,N];
A[i,N]:=C;
for j:=1 to N do Write(A[i,j]:4);
Writeln;
end;
Readln
End.
Цитата:
Сообщение от lily
3)Дан текстовый файл, содержащий сведения о товарах по предприятиям. Сведения включают наименование, стоимость, название фирмы-производителя и др. Сведения об одном товаре находятся в одной строке, отделены друг от друга точкой с запятой. Считать сведения, записать в типизированный файл соответствующего типа, вывести на экран название товара с максимальной стоимостью.
|
Не прежде, чем Вами будет изобретен, написан и выложен (можно прямо в тексте сообщения) исходный файл данных. Понимаю Ваше желание взвалить на нас и эту черновую работу, но - извините.