Вопрос по информатике:
Створити і вивести масив а з n-елементами де n-номер варіанта (у мене 8).виконавши завдання свого варіанта . У випадку відсутності шуканих даних вивести про це повідомлення 8)Вивести номер п'ятого негативного елементу
- 18.07.2018 21:41
- Информатика
- remove_red_eye 14127
- thumb_up 47
Ответы и объяснения 1
uses crt;
var i,count:integer;
a:array[1..8] of integer;
begin
count:=0;
randomize;
for i:=1 to 8 do a[i]:=random(19)-8;
for i:=1 to 8 do write(a[i],' ');
writeln;
for i:=1 to 8 do
begin
if a[i]<0 then inc(count);
if (a[i]<0) and (count = 5) then writeln(i);
end;
if count < 5 then writeln('empty');
readln();
end.
- 19.07.2018 13:18
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.