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

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.

var a: array [1..100,1..100] of integer; n,m,s,i,j: integer; begin      read(n,m);       for i: = 1 to n do            for j: = 1 to m do                  read(a[i,j]);       for i: = 1 to n do begin            s: =0;             for j: = 1 to m do                  s: =s+a[i,j];             writeln('s[',i,'] = ',s);       end; end.

#include < iostream> #include < vector> int main() {     int b[5][6];     std: : vector< int> vec;     for(int i = 0; i < 5; ++i)         for(int j = 0; j < 6; ++j)             std: : cin > > b[i][j];     for(int i = 0; i < 5; ++i)     {         int max = b[i][0];         for(int j = 1; j < 6; ++j)             if (max < b[i][j])                 max = b[i][j];         vec.push_back(max);     }     int min = vec[0];     int number = 0;     for(int i = 1; i < 5; ++i)            if (min > vec[i])         {             min = vec[i];             number = i;         }     std: : cout < < number; }