по информатике . В 3 задании в конце , , палитре, ,

1.

program qq;

const n = 10;

var a: array[1..n] of integer;

i,k: integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random(2001)+1000;

write(a[i],' ');

end;

writeln;

k:=0;

for i:=1 to n do

if a[i] mod 3 = 0 then k:=k+1;

writeln('Количество элемениов кратных 3 - ', k);

readln;

end.

Пример:

2296 2042 2463 2049 1081 2156 2977 1633 1054 1425  

Количество элемениов кратных 3 - 3

2. Определяется количество чисел, которые при делении на 10 дают остаток 8.

program qq;

const n = 10;

var a: array[1..n] of integer;

i,k: integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random(2001)+1000;

write(a[i],' ');

end;

writeln;

k:=0;

for i:=1 to n do

if a[i] mod 10 = 8 then k:=k+1;

writeln('k = ', k);

readln;

end.

Пример:

1887 1878 2568 1936 2508 2788 2050 1569 2906 1782  

k = 4

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
  a: array of integer;
  i, n, m: integer;
function simple(x:integer): boolean;
var
  i: integer;
begin
  Simple := false;
  if x < 2 then exit;
  if x mod 2 = 0 then exit;
  i := 3;
  while i <= sqrt(x) do
  begin
    if x mod i = 0 then exit;
    i +=2;
  end;
  Simple := true;
end;

begin
  write('Количество элементов массива :');readln(m);
  SetLength(a, m);
  while n <= m - 1 do
  begin
    if simple(i) then begin
      a[n] := i;
      n +=1;
    end;
    i +=1;
  end;
a.println;  
end.

Тестовое решение:
Количество элементов массива :25
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97