УМОЛЯЮ, ПОМОГИТЕ!!!!!!!!!!!!!! ДАЮ 20 БАЛЛОВ!!!!!!!!!!!!PASCAL ABC , ОДНОМЕРНЫЙ И...

Question

УМОЛЯЮ, ПОМОГИТЕ!!!!!!!!!!!!!! ДАЮ 20 БАЛЛОВ!!!!!!!!!!!!PASCAL ABC , ОДНОМЕРНЫЙ И ДВУМЕРНЫЙ МАССИВ.1) Дан массив из n чисел. Вывести на экран сумму двух наибольших элементов данного массива, а так же сами эти элементы. (Пример: ввод: n=5, a={7, 2, 5, 10, 4}; вывод: 17, 7, 10)2) Дан двумерный массив размерности n*m (n строк и m столбцов). Подсчитать сколько раз в данном массиве встречается введенное число p. Вывести на экран любую из строк, где данное число встречается (иначе вывести 0). (Пример: ввод: n=3, m=2, p=3, a={(7, 3); (5, 8); (3, 5)}; вывод: 2, 7, 3)​

Answer 1

Ответ:

pascalABC

Объяснение:

Задание 1

   var

       

       arr: array of integer;

       n, i, max1, max2: integer;

   begin

       Write('Введите размер массива: ');

       ReadLn(n);

       SetLength(arr, n);

       for i := 0 to n-1 do begin

           arr[i] := random(100);

           Write(' ', arr[i]);

       end;

       WriteLn;

       

       max1 := arr[0];

       max2 := arr[1];

       if max1 < max2 then Swap(max1, max2);

       

       for i := 2 to n-1 do begin

           if arr[i] > max2 then max2 := arr[i];

           if max1 < max2 then Swap(max1, max2);

       end;

       

       WriteLn(max1+max2,', ',max1,', ', max2);

   end.

Задание 2

var

 n, m, p, k, s: integer;

 i, j: integer;

 a: array[,] of integer;

begin

 Write('Введите размер массива n и m: ');

 ReadLn(n, m);

 SetLength(a, n, m);

 for i := 0 to n-1 do begin

   for j := 0 to m-1 do begin

     Write('a[',i,',',j,']=');

     ReadLn(a[i,j]);

   end;

 end;

 Write('Введите искомое число p= ');

 ReadLn(p);

 s:= -1;

 for i := 0 to n-1 do begin

   for j := 0 to m-1 do begin

     if a[i,j] = p then

       begin

          k:=k+1;

          if s=-1 then s:=i;

       end;

   end;

 end;

 

 if s>-1 then

   begin

     Write(k,', ');

     for j:=0 to m-1 do Write(a[s,j],', ')

   end

   else

     Write('0');

end.