1)Корм. Пища, предназначенная для животных.
2) Мозг. Центральный орган нервной системы.
3)Гром. Сильный шум после молнии.
4) Маяк. Большой фонарь, помогающий самолётам и кораблям в направлении.
program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
i:byte;
begin clrscr;
for i:=1 to 15 do
a[i]:=Random(50);
for i:=1 to 15 do
write(a[i],' ');
end.
универсальный метод из скольки чисел хочешь (n это номер чисел)
program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
i,n:byte;
begin clrscr;
writeln('n:');readln(n);
for i:=1 to n do
a[i]:=Random(50);
for i:=1 to n do
write(a[i],' ');
end.
Ответ:
var a:array [1..15] of integer ;
i,col:integer;
begin
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>200 then col:=col+1;
end;
writeln('Колічесто: ',col);
end.
Объяснение:
Ответ 1.
Т.к. (1<3)&((1<2)\/(1>2))=1&(1\/0)=1&1=1