var day,m,i: integer; temp:array[1..7] of integer; begin temp[1]:=22; temp[2]:=26; temp[3]:=27; temp[4]:=23; temp[5]:=29;

семестр, Dat[2] - оценка за второй семестр и т.д.). Определите что будет напечатано в результате выполнения следующего алгоритма:

Var k,m, term: integer;

Dat: array[1..8] of integer;

begin

Dat[1]:= 7 ; Dat[2]:= 7 ; Dat[3]:=6 ; Dat[4]:= 8 ;

Dat[5]:=4 ; Dat[6]:= 5; Dat[7]:= 4; Dat[8]:= 7;

term:=1; m:=Dat[1];

for k:=2 to 8 do

begin if Dat[k] < m then

begin m:=Dat[k]; term:=k

end end

write (term); end.

элементы, кратные 4. Где ошибка?
program zamena;
var akrat,i,n:integer;
a:array[1..1000] of integer;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite (output);
readln(n);
for i:=1 to n do read (a[i]);
akrat:=a[1];
for i:=1 to n do
begin
if a[i] mod 4=0 then
a[i]:=1000;
end;
for i:=1 to n do
writeln(a[i]);
close (input);
close (output);
end.

mas[1]:=12;

mas[2]:=43;

mas[3]:=48;

mas[4]:=56;

mas[5]:=76;

mas[6]:=73;

mas[7]:=36;

mas[8]:=96;

mas[9]:=69;

mas[10]:=25;

k:=0;

m1:=mas[1] div 10 - mas[1] mod 10;

for i:=2 to 10 do begin

m2:=mas[i] div 10 - mas[i] mod 10;

if m1 > m2 then begin

m1:=m2; k:=i;

end;

end;

write(k);

end.

этот алгоритм?».

Var N, I, J, K, Pr : Integer; A : Array [1..30] Of Integer;

Begin

Write('Введите количество элементов: '); ReadLn(N);

For I := 1 To N Do

Begin

Write('Введите A[', I, '] '); Readln(A[I]);

End; WriteLn;

For I := 1 To N - 1 Do

Begin

K := I;

For J := I + 1 To N Do If A[J] <= A[K] Then K := J;

Pr := A[I]; A[I] := A[K]; A[K] := Pr;

End;

For I := 1 To N Do Write(A[I], ' ');

End.