Предмет: Информатика,
автор: An333
ПОМОГИТЕ С ПАСКАЛЕМ.С клавиатуры вводятся 7 целых чисел. Вычислить количество отрицательных членов этой последовательности.
Ответы
Автор ответа:
0
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);
end.
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);
end.
Интересные вопросы
Предмет: Алгебра,
автор: vikadoruda
Предмет: Математика,
автор: Аноним
Предмет: Русский язык,
автор: stervadarkness
Предмет: Математика,
автор: plelchuk