Составить алгоритм вывода двадцати первых четных чисел

Question

Информатика: Составить алгоритм вывода двадцати первых четных чисел

anastasiyaroma11 · Accepted Answer

1. begin  var a:=ArrRandom(10,1,50); a.Println;  var c:=ReadInteger( c = );  var s:=a.Where(x- x c);  if s.Count 0 then  writeln( Среднее арифметическое элементов ,c, = ,s.Average)  else writeln( В массиве нет искомых элементов ); end. Пример: 8 2 22 16 24 34 29 16 1 26 c =  50 В массиве нет искомых элементов 2. const n=10; var a:array[1..n] of integer; c,i,s,k:integer; begin Randomize; for i:=1 to n do begin  a[i]:=random(51);  write(a[i], );  end; writeln; write( c = ); readln(c); s:=0; k:=0;...

MOGZ ответил