Александр
Мыслитель
(9451)
9 лет назад
А запись какая?
Надя КурзаковаУченик (249)
9 лет назад
Program variant26l;
type stroka=record
nazvanie,strana:String;
stoim:real;
cena,kolvo:real;
end;
table=array [1..1000] of stroka;
var i,j,n,jmax:integer;
s,max:real;
k:stroka;
v:table;
begin
write ('Введите количество товаров n= ');
readln (n);
for i:=1 to n do
begin
with v[i] do
begin
write ('Введите наименование товара ');
readln (nazvanie);
write ('Введите страну-изготовителя ');
readln (strana);
write ('Введите цену одного товара ');
Семён Александров
Мастер
(1018)
9 лет назад
что бы узнать максимальное - берёте переменную допустим max, инициализируете её нулём, перебираете числа в цикле и сравниваете каждое число с переменной max и если сравниваемое число больше чем переменная max, то присваеваете max значение сравниваемого числа. Пример:
if(max < a(сравниваемое число) ) max = a;
вот такой вот алгоритм)))
А если минимальное то тоже самое, только переменную min(например) инициализируете числом которое явно больше, чем любое из тех, которые вы перебираете (к примеру 10000000). И соответственно в условии знак сравнения наоборот))) Я подозреваю, это не самый лучший алгоритм, но работает)
P.S Я не знаю Паскаль, поэтому в примере указал как это бы выглядело бы в Java, но такой алгоритм, я думаю, подойдёт для, почти, любого языка)