Найти количество отрицательных чисел среди 10 введенных из клавиатуры. Информатика, написать программу в паскале.
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var k:=0;
for var i:=1 to 10 do begin
var n:=ReadInteger(i+':');
if n<0 then Inc(k)
end;
Print('Отрицательных',k)
end.
Тестовое решение:
1: 56
2: -14
3: 34
4: 8
5: 0
6: -4
7: -3
8: 9
9: 13
10: 5
Отрицательных 3
begin
var k:=0;
for var i:=1 to 10 do begin
var n:=ReadInteger(i+':');
if n<0 then Inc(k)
end;
Print('Отрицательных',k)
end.
Тестовое решение:
1: 56
2: -14
3: 34
4: 8
5: 0
6: -4
7: -3
8: 9
9: 13
10: 5
Отрицательных 3
Ответил fairytale8
0
Спасибо вам большое!!!
Ответил Аноним
0
Пожалуйста
Ответил fairytale8
0
Помогите пожалуйста решить последние задание. Заранее спасибо
Новые вопросы