Во В программе используется одномерный целочисленный массив А с индексами от 0 до 9. Значения элементов равны 8, 4, 3, 0,7, 2, 1, 5, 9, 6 соответственно, т.е.
A[0] = 8, А[1] = 4 и т.д. Определите значение переменной s после выполнения следующего фрагмента программы:
s:= 0;
for j:= 0 to 9 do
if All <= 4 then
S = j;
Введите правильный вариант ответа:
Program maximal;
const
nmax=100;
var
a:array[1..nmax] of integer;
N,i,max:integer;
begin
readln(N);
max:=0;
for i:=1 to N do
begin
read(a[i]);
if max<a[i] then
max:=a[i];
end;
write(max);
end.
2) Program B;
const
nmax=100;
var
a:array[1..nmax] of integer;
N,i,z:integer;
begin
readln(N);
z:=0;
for i:=1 to N do
begin
read(a[i]);
if a[i]>0 then
write(a[i],' ');
if a[i]=0 then
z:=z+1;
end;
writeln();
for i:=1 to N do
begin
if a[i]<0 then
write(a[i],' ');
end;
writeln();
for i:=1 to z do
write('0',' ')
end.