Program chik2;
var a,i,h,l:integer;
begin
l:=0;
h:=0;
for i:=1 to 10 do
begin
read(a);
if(a>0)then l:=l+1;
if(a<0)then h:=h+1;
end;
write(l,' ',h);
end.
l-кол-во полож
h-кол-во отрицательных
Ответ:
Г
Объяснение:
В электронное письмо можно добавить абсолютно любой файл
{все строки с фигурными скобками можно удалить, это комментарии, которые на программу не влияют}
var
a: array[1..10]of real;
i,k:integer;t:real;
begin
writeln('Введите t');
{На экране появится текст "Введите t"}
readln(t);
{В этот момент появится курсор и можно будет ввести значение t}
writeln('Введите массив');
for i:=1 to 10 do
begin
readln(a[i]); {вводим элементы массива с клавиатуры}
if a[i]<t then {если элемент массива <t}
k:=k+1; {то считаем количество таких элементов}
end;
writeln;
writeln('количество: ',k);
end.
сервер))) єто правильный ответ потому что у нас это сегодня было