Vara:array[1..10]of integer;i,b,c:integer;BeginRandomize;for i:=1 to 10 do begina[i]:=random(31)-10;if a[i]>0 then b:=b+1;if a[i]<0 then c:=c+1;end;writeln('кол-во положительных чисел = ',b,'; кол-во отрицательных чисел = ',c);end.
Ответ FETA, ведь на первом месте любая из трех букв (EFR) если на втором месте гласная, в этом случае E.
//1
for i := -3 to 3 do
Read(a[i]);
//2
Randomize;
for i := -3 to 3 do
a[i] := Random(101) - 50;
//3
for i := -3 to 3 do
a[i] := 5 * i;
//4
Randomize;
for i := -3 to 3 do
a[i] := Random(41) + 150
Утюг.
Вход- место подключения кабеля питания.
Выход- Подошва утюга.
Телевизор.
Вход тот же .
Выход - экран телека