Вопрос по информатике:
(50 баллов) Помогите, пожалуйста!!! Программа Паскаль: написать массив, который выводит все элементы с нулём.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.07.2017 19:53
- Информатика
- remove_red_eye 19610
- thumb_up 44
Ответы и объяснения 2
Const n=10;
var a:array[1..n] of integer;
i:integer; c:string;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(200);
write(a[i]:5);
end;
writeln;
for i:=1 to n do
begin
str(a[i],c);
if pos('0',c)>0 then write(a[i]:5);
end;
writeln;
end.
Пример:
110 43 38 35 103 44 35 192 86 199
110 103
- 01.01.1970 00:00
- thumb_up 46
А еще можно вот так...
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),100,999); a.Println;
a.Where(x->(x.ToString.IndexOf('0')>0)).Println;
end.
Тестовое решение:
n= 16
959 277 138 801 580 575 785 986 679 544 762 852 614 460 955 411
801 580 460
И даже можно решить одним-единственным "оператором" )))
begin
ArrRandom(ReadInteger('n='),100,999).Println.
Where(x->(x.ToString.IndexOf('0')>0)).Println;
end.
- 01.01.1970 00:00
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.