ДАЮ 50 баллов Pascal Дан массив целых чисел состоящий из n элементов. Найти сумму...

Question

ДАЮ 50 баллов Pascal Дан массив целых чисел состоящий из n элементов. Найти сумму элементов имеющие нечетные индексы. Посчитать кол-во элементов массива значение которых больше заданных А и кратных 5

Answer 1

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
  var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
  var m:=ReadInteger('A=');
  Writeln('Сумма с нечетнми номерами: ',
    a.Where((x,i)->i mod 2=0).Sum);
  Writeln('Количество больших ',m,' и кратных 5: ',
    a.Where(x->(x>m) and (x mod 5=0)).Count)
end.

Тестовое решение:
n= 15
60 51 74 17 45 27 83 61 47 79 81 20 39 61 32
A= 28
Сумма с нечетнми номерами: 461
Количество больших 28 и кратных 5: 2

Answer 2

Const N = 10;
var b: array[1..N] of integer;
summ, k, A: integer;
begin
readln(A);
summ:=0;
k:=0;
for i:=1 to N do begin
readln(b[i]);
 If (b[i] > A) and (b[i] mod 5 = 0) then
k:=k+1;
If i mod 2 <> 0 then
summ:=summ+ b[i];
end;
writeln('Summ = ', summ);
writeln(k);
end.