Дан двумерный массив. Определить: номер столбца, в котором расположен минимальный элемент третьей строки массива. Если элементов с минимальным значением в этой строке не- сколько, то должен быть найден номер столбца самого правого из них.
//Задание №1 //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const m = 31; var a:array[1..m] of integer; i,s,n:integer;
begin for i:=1 to m do begin a[i]:=random(-20,20); if a[i]>0 then begin s:=s+a[i];n:=n+1; end; end; println('Температуры за месяц :'); a.println; writeln('Средняя в оттепель :',s/n:0:3); end.
Тестовое решение: Температуры за месяц : 16 7 19 -7 -18 6 12 -18 -5 -10 8 -4 10 4 10 5 -3 14 -7 -8 2 7 4 -7 18 4 -12 -5 -9 7 -5 Средняя в оттепель :9.000
//Задание №2 //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const m = 10; var a:array[1..m] of integer; i,s,n:integer;
begin for i:=1 to m do begin a[i]:=random(-20,20); if i mod 2<>0 then s:=s+a[i]; end; writeln('Исходный массив :'); a.println; for i:=1 to m do if i mod 2=0 then a[i]:=s; writeln('Сумма на нечетных местах = ',s); writeln('Изиененный массив :'); a.println; end.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
procedure BubbleSortFlag(a:array of integer); // пузврьковая сортировка с флажком begin var f:=True; // флажок перестановки var p:=1; // номер перестановки var n:=a.Length; while f do begin f:=false; for var i:=0 To n-p-1 Do if a[i]>a[i+1] then begin Swap(a[i],a[i+1]); f:=true end; p+=1 end end;
begin var a:=ArrRandom(10,-10,10); a.Println; BubbleSortFlag(a); a.Println end.
const N = 5;
var i, j, min, mini:integer;
a: array[1..N, 1..N] of integer;
begin
min:=101;
mini:=N;
for i:=1 to N do
for j:=1 to N do a[i, j]:=random(100);
for j:=1 to N do
if a[3, j] <= min then begin
min:=a[3, j];
mini:= j;
end;
write(mini);
end.