Program rost;
var a: integer;
begin
readln (a);
if a<=180 then
Writeln('Не очень высокий')
else
Writeln('Высокий');
<span> end.</span>
Задание не совсем корректное. Если в массиве хранятся числа и отсутствие осадков принято за "0", то программа выглядит так
var i: integer;
a: array[1..31] of integer;
begin
for i:=1 to 31 do read(a[i]);
for i:=1 to 31 do
if a[i]=0 then write(i, ' ');<span>
end.
</span>
Задание 1:
A.<span>Общеутвердительные
</span><span>Задание 2:
Братан,я вообще без понятия че тут ответить
Задание 3:
4.Принятие действий
Задание 4:
</span>понятие<span>, </span>суждение<span> и </span>умозаключение<span>.
</span><span>Задание 5:
я не знаю
Задание 6
</span><span>Геометрические фигуры
Задание 7
1.
3.
5.
6.
7.
8.
Задание 8
Начало и конец
задание 8(у тя повторное оно)
1.
4.
Задание 9
3.
</span><span>5.
7.
Задание 10
Я не знаю </span>
Program n1;
Uses Crt;
Var
c: array[1..10] of integer;
i, b, k:integer;Begin
for i:=1 to 10 do begin
c[i]:=random(40) - 20;
write(c[i]:4);
end;
writeln();
writeln('Enter B = '); Readln(b);
k:=0;
for i:=1 to 10 do if (c[i]<b) then k:=k+1;
writeln('Kol-vo iskomih chisel: ', k);
<span>End.</span>