3. Отнесите названные устройства к внутренней памяти компьютера 1 ПЗУ. 2 Жесткий диск. 3 ОЗУ. 4 Флеш. 5 Лазерный диск *

4,5

1,3

2,5

1,2

// Код на паскале

var

  a, b: array [1 .. 8] of longint;

  i, ans1, ans2: byte; 

function check(var x: longint): boolean; // функция проверки числа на четность

begin

  if x mod 2 = 0

    then check := true

  else

    check := false;

end;

begin

  ans1 := 0;

  ans2 := 0;

  for i := 1 to 8 do

  begin

    read(a[i]);  //читаем число а_і

    if check(a[i]) then //если четное, то ...

      inc(ans1);  //увеличиваем ответ_1 на 1

  end;

  for i := 1 to 8 do

  begin

    read(b[i]);   //читаем число b_i

    if not check(b[i]) then  // если нечетное, то ...

      inc(ans2); // увеличиваем ответ_2 на 1

  end;

  writeln('Количество четных чисел в первой последовательности = ', ans1);

  writeln('Количество нечетных чисел во второй последовательности = ', ans2);

end.

Program JolieWErnAje;
uses crt;
const n=10;
var
  a:array[1..n,1..n] of integer;
  i,j: integer;
  tp: integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  tp:=1;
  randomize;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:= random(20)+1; {заполняем массив}
          write(a[i,j]:4);
          if a[i,j] mod 3 = 0 then tp:=tp*a[i,j];
        end;
      writeln();
    end;
  writeln();
  writeln('Произведение элементов, кратных 3, равно ',tp)
end.