Вопрос по информатике:
Дан массив из 30 чисел. Числа целые от 100 до 500.
1. Вывести на массив строго через пробел
2. Вывести на экран строку через запятую все четные числа
Помогите срочно надо
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.08.2018 14:01
- Информатика
- remove_red_eye 4701
- thumb_up 24
Ответы и объяснения 2
// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
var a:=ArrRandom(30,100,500); a.Println;
a.where(x->x.IsEven).Println(',')
end.
Пример
290 113 132 216 290 437 425 260 107 439 258 498 306 367 335 460 157 470 311 284 123 226 257 392 321 141 361 340 457 276
290,132,216,290,260,258,498,306,460,470,284,226,392,340,276
- 25.08.2018 01:31
- thumb_up 20
Var
i:integer;
mas: array [1..30] of integer;
begin
randomize;
for i:=1 to 30 do begin
mas[i]:=random(100,500);
write(mas[i], ' ');
end;
for i:=1 to 30 do begin
if mas[i] mod 2 = 0 then
write(mas[i], ',');
end;
end.
- 26.08.2018 06:50
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.