УМОЛЯЮ, ПОМОГИТЕ!!!!!!!!!!!!!! ДАЮ 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)
Ответы
Ответ:
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.