Program kolichestvo;//числа вводим последовательно,через enter
uses crt;
var chisla:array[1..7] of integer;
i,k:integer;
begin
for i:=1 to 7 do
begin
readln(chisla[i]);
if chisla[i]<0 then
k:=k+1;
end;
writeln('Количество отрицательных чисел последовательности:',k);
<span>end.</span>
4 решения. Это легко увидеть по таблице истинности. См. фото.
Отличительные : вид, вкус, цвет, и т. д.
общие : название ,род