Ответ:Я думаю, что это красный и зеленый
Объяснение:
Type mas=array of integer;
procedure revers(var a:mas; i:integer);
begin
write(a[i],' ');
if i>0 then revers(a,i-1);
end;
var a:mas;
i,n:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do
read(a[i]);
revers(a,n-1);
end
Вот этот кусочек будет считать сколько элементов в массиве меньше 6.
x := 0;
for i := 1 to n do
begin
if m[i] < 6 then
inc(k);<span>
end;
writeln(k);
</span>
Линейка - чтобы измерять расстояние, чаще всего на бумаге.
транспортир - чтобы определять угол.
термометр - чтобы определять температуру.
компас - чтобы определять местоположение по стрелке на север.
телескоп - чтобы наблюдать за звездами.
микроскоп - чтобы изучать клетки организмов.
вольтметр, амперметр, градусник.