Вопрос по информатике:
СДЕЛАТЬ В ПАСКАЛЕ:
Дан массив из 30 элементов, созданный случайным образом, значения элементов которого находится в диапазоне [-20,30]. Вывести в файл нечетные элементы массива. Если таких чисел нет, то вывести сообщение об этом факте.
- 26.12.2017 22:43
- Информатика
- remove_red_eye 17864
- thumb_up 11
Ответы и объяснения 1
Var a:array[1..30] of integer;
i, n, k:integer;
fout:text;
begin
for i:=1 to 30 do
a[i]:=30 - random(51);
assign(fout, 'out.txt');
rewrite(fout);
for i:=1 to 30 do
if a[i] mod 2 0 then
k:=k+1;
if k 0 then
for i:=1 to 30 do begin
if a[i] mod 2 0 then
write(fout, a[i], ',');
end
else write(fout, 'Нечетных элементов массиве нет.');
close(fout);
end.
- 27.12.2017 08:22
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.