Вопрос по информатике:
Запросить массив из 5 элементов и определить кол-во отрицательных элементов. (Как надо написать в Pascal)
Пожаловаться
- 05.04.2018 22:06
- Информатика
- remove_red_eye 8512
- thumb_up 29
Ответы и объяснения 2
var n:array [1..5] of integer;
var c: integer;
begin
for i:=1 to 5 do
if n[i]<0 then c:=c+1;
end.
Пожаловаться
- 06.04.2018 07:47
- thumb_up 19
Program firstProgram;
varmasiv: Array[0..4] of integer;counter:integer;i:integer;beginRandomize();counter:=0;for i:= 0 to masiv.Count-1 do begin masiv[i]:=random(-5,5); writeln(masiv[i]); //вывод элементов массива (можно удалить). end; for i:=0 to masiv.Count-1 do begin if masiv[i]<0 then begin counter:= counter+1; end; end; Writeln('Всего отрицательных элементов: '+counter);Readln();end.
varmasiv: Array[0..4] of integer;counter:integer;i:integer;beginRandomize();counter:=0;for i:= 0 to masiv.Count-1 do begin masiv[i]:=random(-5,5); writeln(masiv[i]); //вывод элементов массива (можно удалить). end; for i:=0 to masiv.Count-1 do begin if masiv[i]<0 then begin counter:= counter+1; end; end; Writeln('Всего отрицательных элементов: '+counter);Readln();end.
Пожаловаться
- 07.04.2018 06:56
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы