Ответы и объяснения

2014-04-02T03:04:33+00:00
1)program z1;
var  
    a:array[1..5]of integer; 
    i,s,j,n:integer;
begin
  n:=0;
  s:=0;
  for i:=1 to 5 do
    begin
      read(a[i]);
      if a[i]>=0 then
      begin
         s:=a[i] mod 4;
         j:=(a[i]-8) mod 10;
      end else
      begin
         s:=a[i] mod -4;
         j:=(a[i]+8) mod -10;
    end;
      if (s=0) and (j=0) then n:=n+1;
    end;
 writeln('Чисел которые оканчиваются на 8 и делятся на 4: ',n,' штук '); 
end.
2)program z2;
var
     
 a:array[0..1000]of integer;
      i,s:integer;
begin
  s:=0;
  randomize;
 for i:=0 to 1000 do
   a[i]:=random(random(10000000));
writeln('Номера чисел, которые равны последнему:');
 for i:=0 to 999 do
   if a[i]=a[1000] then begin write(i,'; '); s:=1; end;
if s=0 then write('Таких чисел массива нет!');
end.