Регистрация
dkdjdhhs
27.04.2020 11:43
Информатика
Есть ответ 👍

Массивы. определить количество четных элементов стоящих на нечетных. в паскале

227
393
Посмотреть ответы 3

Ответы на вопрос:

borisovak468
borisovak468
4,6(18 оценок)
Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 внимание! если программа не работает, обновите версию!

begin

  var a : = arrrandom(readinteger('n='), -50, 50);

  a.println;

  println('количество четных элементов на нечетных местах равно',

      a.where((v, i)-> v.iseven and i.iseven).count)

end.

n= 13

20 -26 28 -45 6 -32 33 25 48 -49 28 -18 9

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

Миша20072007
Миша20072007
4,7(22 оценок)

случайно сгенерированный массив из 15 элементов в диапазоне от -20 до 20.

const max = 15;

var

  a: array [1 .. max] of integer;

  i, k: integer;

begin

  randomize;

  k : = 0;

  writeln(' *** сгенерированный массив *** ');

 

  for i : = 1 to max do

  begin

    a[i] : = random(41) - 20;

    write(' ', a[i]);

    if ((i mod 2) < > 0) and (a[i] mod 2 = 0) then

      inc(k);

  end;

 

  writeln;

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

end.

darinarad4enko1
darinarad4enko1
4,4(58 оценок)
Program project1; const  n = 10; var  a : array [1..n] of integer;   i : integer; begin randomize;   for i : = 1 to n do    a[i]: = random(100);   for i : = 1 to n do    write(a[i],' '); end.

Популярно: Информатика