Begin
var a := ArrRandom(7, -10, 10);
a.println();
writeln(a.Where(x -> x mod 2 = 0).Average);
end.
Program Pr1;
uses crt;
var x:real;
begin
clrscr;
x:=-4;
while x<=4 do begin
writeln(ABS(x+2));
x:=x+0.5;
end;
end.
Е:\видеозапись.avi
Е:\график.xIs
Е:\ИЗОБРАЖЕНИЯ\аквариум.bmp
Е:\ИЗОБРАЖЕНИЯ\ФОТО\Бия.jpeg
Е:\ИЗОБРАЖЕНИЯ\ФОТО\Катунь.jpeg
Е:\ТЕКСТЫ\буква.txt
Е:\ТЕКСТЫ\онегин.doc
Е:\мелодия.mp3
Е:\презинтация.ppt
Ответ:
const
N = 8;
var
a: array[1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
for i := 1 to N div 4 do
begin
k := 0;
for j := 4 * i - 3 to 4 * i do
k := k + a[j];
k := k div 4;
for j := 4 * i - 3 to 4 * i do
a[j] := k
end;
for i := 1 to N do
writeln(a[i])
end.
идентификация
уточняющая, опознающая
распознает, классифицирует, отождествляет
помогает распознать нужную информацию
сопоставление