Написать блок-схему для задачи:

Internet: [email protected] Каково имя
компьютера, на котором хранится почта?
а) ru;
б) [email protected];
в) mtu-net.

экране. Выбери технологию, которая НЕ ИСПОЛЬЗУЕТСЯ в устройствах для чтения электронных книг:
1)E-Ink
2)TFT
3)SED
4)DLP

В массиве B [1..10,1..3] содержатся данные о количестве сотрудников учреждения.Элементы первой строки обозначают номер отдела, элементы второй строки количество мужчин в нем,элементы третьей строки количество женщин в отделе.Сколько всего сотрудников в учреждении и кого больше: мужчин или женщин?

Ввести 10 чисел, и вывести на экран наименьшее.

Const n=6;m=4;
Var A:array[1..n,1..m] of integer;
i,j,k:byte;
Begin
For i:=1 to n do
Begin
For j:=1 to m do
Begin
A[i,j]:=random(31)-15;
write(A[i,j]:4);
End;
writeln;
End;
write('Строки в которых один нулевой элемент: ');
For i:=1 to n do
Begin
k:=0;
For j:=1 to m do
if A[i,j]=0 then inc(k);
if k=1 then write(i:2);
End;
readln;
End.

отрицательное или равно 0 - закрашенный прямоугольник помогите плиз написать программу для QBASIC

1) Вводятся 100 чисел.Определить сколько среди них положительных и сколько отрицательных.(Числа вводятся в одну переменную в цикле)
2) Алгоритм вычисления суммы квадратов десяти производных чисел, водимых с клавиатуры в процесс выполнения алгоритма
И НАПИШИТЕ ПРОГРАММУ ДЛЯ КАЖДОЙ ЗАДАЧИ