Дано масив А[1..7] = {3; 8; 5; 7; 6; 4; 0}
Яке значення одержить змінна P після виконання фрагмента програми
P:=2; For i:=1 to 7 do If A[i] > 6 Then P:=P*A[i];
Ваша відповідь:

паскаль, одномерный массив

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.

program prim;

var i,x : integer;

begin

x: =1;

for i: =1 to 5 do

begin write (x,'   ');

x: =x+2;

end;

end. 

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

только  25-18=7 человек

только французский 27 - 18 = 9 человек

ну а на вопросы не отвечу =))