Question

паскаль. В массиве записана информация о 30 видах товара. Определить стоимость двух самых дорогих видов товаров

Answer 1

Const n=3;
type lec=record
name:string;
cost:integer;
end;
var a:array [1..n] of lec;
max1:integer;
m,k,p,i:byte;
begin
for i:=1 to n do
with a[i] do begin
writeln ('Введи наименование товара');
readln (name);
writeln ('введи стоимость товара');
readln (cost);
end;
max1:=-1;
for i:=1 to n do
if a[i].cost>max1 then begin max1:=a[i].cost;
p:=i;
end;
while k<>1 do begin
for i:=1 to n do
if (i<>p) and (a[i].cost=max1) then begin m:=i;
k:=1;
end;
max1:=max1-1;
end;
writeln (a[p].name,' ',a[p].cost);
write (a[m].name,' ',a[m].cost);
readln;
end.

Answer 2

Для решения этой задачи на языке программирования Pascal, вам потребуется использовать массив для хранения информации о стоимости каждого вида товара. Давайте предположим, что у вас есть массив `СтоимостьТовара` типа `real`, содержащий информацию о стоимости каждого вида товара.

Пример кода на Pascal может выглядеть следующим образом:

program НахождениеСтоимости;

const
  КоличествоВидовТовара = 30;

var
  СтоимостьТовара: array[1..КоличествоВидовТовара] of real;
  i: integer;
  самаяДорогая1, самаяДорогая2: real;

begin
  // Ввод информации о стоимости каждого вида товара
  writeln('Введите стоимость каждого вида товара: ');
  for i := 1 to КоличествоВидовТовара do
  begin
    write('Товар ', i, ': ');
    readln(СтоимостьТовара[i]);
  end;

// Ищем две самые дорогие стоимости товаров
  самаяДорогая1 := -1;
  самаяДорогая2 := -1;

for i := 1 to КоличествоВидовТовара do
  begin
    if СтоимостьТовара[i] > самаяДорогая1 then
    begin
      самаяДорогая2 := самаяДорогая1;
      самаяДорогая1 := СтоимостьТовара[i];
    end
    else if СтоимостьТовара[i] > самаяДорогая2 then
    begin
      самаяДорогая2 := СтоимостьТовара[i];
    end;
  end;

// Вывод результатов
  writeln('Две самые дорогие стоимости товаров: ', самаяДорогая1, ' и ', самаяДорогая2);
  
  readln;
end.

Этот код позволяет вам ввести стоимость каждого вида товара, затем находит две самые дорогие стоимости и выводит их на экран.