Дан массив к(n), n=12. известно, что в массиве есть один элемент, значение которого равно 100. определить его порядковый номер. вычислить сумму значений элементов массива, стоящих в массиве перед элементом, значение которого равно 100.
var i, j, e, max, min: integer; F: array[1..k, 1..p] of integer;
begin Randomize; writeln('Исходная матрица'); max := -32768; min := 32767; for i := 1 to k do begin for j := 1 to p do begin e := random(100) - 50; if e > max then max := e else if e < min then min := e; write(e:4); F[i, j] := e end; writeln end; F[1, p] := max; F[k, 1] := min; writeln('Результирующая матрица'); for i := 1 to k do begin for j := 1 to p do write(F[i, j]:4); writeln end end.
var f: array [1..k, 1..p] of byte; mini: array [1..2] of byte := (1, 1); maxi: array [1..2] of byte := (1, 1);
procedure Swap(var a, b: integer); var p: integer; begin p := a; a := b; b := p; end;
begin for i: byte := 1 to k do begin for j: byte := 1 to p do begin f[i, j] := random(10, 100); write(f[i, j]:3); if (f[mini[1], mini[2]] > f[i, j]) then begin mini[1] := i; mini[2] := j; end; if (f[maxi[1], maxi[2]] < f[i, j]) then begin maxi[1] := i; maxi[2] := j; end; end; writeln(); end; writeln();
var
i, imax, sum: integer;
mas: array[1..12] of integer;
begin
for i:=1 to 12 do
read(mas[i]);
writeln;
for i:=1 to 12 do
if (mas[i]=100) then
begin
imax:= i;
break;
end;
for i:=1 to imax-1 do
inc(sum, mas[i]);
write('Сумма = ', sum);
end.