Информатика .для изменения внешнего вида текста:

Question

Информатика: Информатика .для изменения внешнего вида текста:

Maximus20161 · Accepted Answer

Program task1;

const
n = 10;

var
a :array [1..n] of real;
i, j :integer;
min, k :real;

begin

for i:= 1 to n do
    readln(a[i]);

min:= a[1];
for i:= 1 to n do
    if a[i] < min then
    begin
      min:= a[i];
      j:= i;
    end;

k:= a[n];
a[n]:= a[j];
a[j]:= k;

end.

program task2;

const
n = 10;

var
a :array [1..n] of integer;
i, j, kol :integer;

begin

for i:= 1 to n do
    readln(a[i]);

kol:= 0;
for i:= 1 to n do
    if a[i] mod 3 = 0 then
      inc(kol);
for i:= 1 to n do
    if a[i] = kol then
    begin
      j:= i;
      break;
    end;
writeln(j);

end.

MOGZ ответил