Предмет: Информатика,
автор: Ministreliya99
ПОМОГОТЕ!!!!! ОЧЕНЬ СРОЧНО!!!!!
Ввести из текстового файла одномерный целочисленный массив из 9 элементов. Подсчитать, сколько в нём отрицательных, положительных и нулевых элементов.
Ответы
Автор ответа:
0
// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
begin
var a:=ReadAllText('filein.txt').ToIntegers; a.Println;
(var p,var z, var n):=(0,0,0);
foreach var k in a do
if k>0 then p+=1
else
if k=0 then z+=1 else n+=1;
Writeln('Положительных ',p,', нулей ',z,' отрицательных ',n)
end.
Пример
-5 8 3 11 7 0 -2 7 4
Положительных 6, нулей 1 отрицательных 2
Вас так не учили? Печально! Осваивайте современную технику программирования!
begin
var a:=ReadAllText('filein.txt').ToIntegers; a.Println;
(var p,var z, var n):=(0,0,0);
foreach var k in a do
if k>0 then p+=1
else
if k=0 then z+=1 else n+=1;
Writeln('Положительных ',p,', нулей ',z,' отрицательных ',n)
end.
Пример
-5 8 3 11 7 0 -2 7 4
Положительных 6, нулей 1 отрицательных 2
Вас так не учили? Печально! Осваивайте современную технику программирования!
Приложения:
Автор ответа:
0
Мы такого не изучаем
Автор ответа:
0
А это ваши проблемы! Вы не то, чтобы версию изучаемого языка не указали, Вы не указали даже на каком языке писать!
Автор ответа:
0
На паскале abc можно? Пожалуйста)
Автор ответа:
0
Нет, нельзя. Вы вообще не указали в вопросе, какой язык нужен, а теперь вдруг возжелали конкретную версию. С чего я буду дважды решать одно и то же из-за Вашей безалаберности и неуважения к чужому труду?
Похожие вопросы
Предмет: Алгебра,
автор: ddiiaannaahjhj
Предмет: Химия,
автор: owlnow
Предмет: Геометрия,
автор: darinasyper
Предмет: Алгебра,
автор: rusalka260692
Предмет: Литература,
автор: Ksybondar12252