program qqsam2;
uses Crt;
const nmax = 9;
type pribor = record
name : string;
number : integer;
w_gold : real;
w_silv : real;
cost : real;
count : integer;
end;
var
p : array [1..nmax] of pribor;
i, n : byte;
CostAll, w_name : real;
enter_name : string;
begin
ClrScr;
Repeat
Writeln('Количество приборов (не более ', nmax, '): ');
Readln(n);
until n in [1..nmax];
Writeln('Введите данные о приборах: ');
for i := 1 to n do
begin
Write('Наименование прибора № ', i, ': '); Readln(p[i].name);
Write('Вес золота в приборе № ', i, ': '); Readln(p[i].w_gold);
Write('Вес серебра в приборе № ', i, ': '); Readln(p[i].w_silv);
Write('Стоимость прибора № ', i, ': '); Readln(p[i].cost);
Write('Количество приборов № ', i, ': '); Readln(p[i].count);
Writeln('========================================= ==========');
end;
ClrScr;
Write('Введите наименование прибора: '); Readln(enter_name);
CostAll := 0; w_name := 0;
for i := 1 to n do
begin
if p[i].name = enter_name then w_name := w_name + p[i].count * (p[i].w_gold + p[i].w_silv);
CostAll := CostAll + p[i].count * p[i].cost;
end;
Writeln('Общий вес драгоценных металлов в приборе ', enter_name, ' = ', w_name);
Writeln('Общая стоимость приборов: ', CostAll);
end.
Вот задача, но ответ нужен матрицей, не могу понять как его так вывести