Var a,i,n:integer; b:array [1..50] of integer; begin readln(n); for i:= 1 to n do readln(b[i]); i:=1; a:=0; while (b[i]<>0) and (i<=n) do begin if b[i] mod 2 =0 then a:=a+b[i]; inc(i); end; writeln('Сумма четных элементов = ',a); end.
1) //PascalABC.NET версия 3.2, сборка 1389 //Если программа не запускается, то обновите версию begin var a := ArrRandomInteger(20, 100, 200); Println(a); var k := a.Count(x -> x mod 10 = 5); Writeln((k = 0) ? 'Таких чисел нет' : k.ToString()); end.
2) //PascalABC.NET версия 3.2, сборка 1389 //Если программа не запускается, то обновите версию begin var a := ArrRandomInteger(40, -100, 100); Println(a); var max := a.Count(x -> x mod 3 = 0); if max <> 0 then max := a.Where(x -> x mod 3 = 0).Max; Writeln((max = 0) ? 'Таких чисел нет' : max.ToString()); end.
Пусть *(n) - число звёздочек, которое выведет процедура f(n).
Так как f(n) всегда выводит 1 звёздочку, а если если n > 2 - то вызывает f(n - 1) и f(n - 2), то *(n) = 1 при n <= 2 *(n) = 1 + *(n - 1) + *(n - 2) при n > 2.
a,i,n:integer;
b:array [1..50] of integer;
begin
readln(n);
for i:= 1 to n do
readln(b[i]);
i:=1;
a:=0;
while (b[i]<>0) and (i<=n) do
begin
if b[i] mod 2 =0 then a:=a+b[i];
inc(i);
end;
writeln('Сумма четных элементов = ',a);
end.