50 pascal дан массив целых чисел состоящий из n элементов. найти сумму элементов имеющие нечетные индексы. посчитать кол-во элементов массива значение которых больше заданных а и кратных 5
// 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
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.
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
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.