3Д изображения имеют большую реалестичность
ешё картина весенний сад
Решение смотри во вложении.
<h2>PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)</h2>
- begin
- var arr := SeqRandomInteger(ReadInteger('N = ')).ToArray;
- arr.Println;
- Writeln('< 50: ', arr.Where(x -> (x < 50)).Average:3:2);
- Writeln('>= 50: ', arr.Where(x -> (x >= 50)).Average:3:2);
- end.
Тело цикла будет выполнено 4 раза и массив будет изменяться так:
1 проход [1,5,0,0,0]
2 проход [1,5,10,0,0]
3 проход [1,5,10,16,0]
4 проход[1,5,10,16,23]
Ответ: Г
Program z7; Var i,n,s:integer; a:array [1..1000] of integer; p:real;Begin n:=0; for i :=1 to 1000 do begin read(a[i]); n:=n+1; if (a[i]= 0) then break; end; for i :=1 to n do begin write(a[i],' '); end; s:=0; for i:=1 to n do s:=s+a[i]; p:=s/n; writeln; writeln(p:3:3);End.