линейный массив. найдите ошибки в задачах!

[rtif]

IMG_1944.jpg
где у меня ошибка я не понимаю , когда выходит число 0 он пишет 1 , а нужно 0!
ВАРИАНТ1 ЗАДАЧА1

uses crt;
var
a:array[1..100] of integer;
i,n,k:byte;
begin
writeln('ââåäèòå ðàçìåðíîñòü ìàññèâà');
read(n);
for i:=1 to n do
begin
a[i]:=random(101)-0;
write(a[i]:5);
end;
writeln;
for i:=1 to n do
begin
if a[i] mod 2=0  then
a[i]:=2
else
a[i]:=1;
write(a[i]:5)
end;
end.

ЗАДАЧА2
Почему-то ответ состоит из единиц?Что я не так делаю?

uses crt;
var
a:array[0..100] of integer;
i,n,z,s:integer;
begin
writeln('ââåäèòå ðàçìåðíîñòü ìàññèâà');
readln(n);
s:=0;
for i:=1 to n do
begin
a[i]:=random(201)-100;
write(a[i]:5);
end;
writeln;
for i:=1 to n do
begin
z:=a[1];
if a[i]=a[1] then
s:=s+1;
write(s);
end;
end.

задача№3
сумма равняется 0 и числа на экран выходят не четные, не положительные!

uses crt;
var
a:array[1..100] of integer;
i,n,z,k:integer;
begin
k:=0;
 writeln('ââåäèòå ðàçìåðíîñòü ìàññèâà');
 readln(n);
for i:=1 to n do
begin
a[i]:=random(301)-150;
writeln(a[i]:5);
end;
writeln;
for i:=i to n do
if (a[i]>0) and (a[i] mod 2=0) then
k:=k+a[i];
writeln(z);
end.

[vovk]

скорее не 1 а 2 при делении 0 на 2 остаток тоже 0 будет,
0 ведь оно тоже чётное, поэтому:

for i:=1 to n do
begin
if a[i]<>0 then
begin
if a[i] mod 2=0 then
a[i]:=2
else
a[i]:=1;
end;
write(a[i]:5)
end;

[Stilet]

1)

...
if a[i]<>0 then begin
 if (a[i] mod 2)=0  then a[i]:=2 else
 a[i]:=1;
end;
...

2)

for i:=1 to n do begin
 if a[i]=a[1] then s:=s+1;
end;
write(s);

3)

k:=k+a[i];
writeln(k);

А не Z. Будь внимателен.

[vovk]

О, теперь вижу что о других задачах спрашивал))
А пока код в теги не загнали, даже как то и не заметил ничего кроме 1 вопроса..

[rtif]

vovk, спасибо большое))
Stilet, а во 2 задаче все равно получается ошибка((

[vovk]

2)

for i:=0 to n do // я так понял что надо 1 элемент, а не элемент с индексом 1, значит вроде нужно a[0] сравнивать.
begin
//z:=a[1]; //не понятно что это и зачем
if a[i]=a[0] then
s:=s+1;
end;
write(s);//выводить после того как посчитали, а не во время

всё пора спать
3)

for i:=i to n do//обратите внимание с чего начинаем, этот цикл выполнятся не будет, так как i = n после последнего цикла
if (a[i]>0) and (a[i] mod 2=0) then
k:=k+a[i];
writeln(k);
end.