В ПАСКАЛЕ СДЕЛАТЬ: Дан массив из 20 элементов, созданный случайным образом, значения элементов которого находится в диапазоне [-20,20]. Вывести в файл четные элементы массива. Если таких чисел нет, то вывести сообщение об этом ...
В ПАСКАЛЕ СДЕЛАТЬ:
Дан массив из 20 элементов, созданный случайным образом, значения элементов которого находится в диапазоне [-20,20]. Вывести в файл четные элементы массива. Если таких чисел нет, то вывести сообщение об этом факте.
Гость
Ответ(ы) на вопрос:
Гостьvar a:array[1..20] of integer;
i, k:integer;
fout:text;
begin
for i:=1 to 20 do
a[i]:=20 - random(41);
assign(fout, 'out.txt');
rewrite(fout);
for i:=1 to 20 do
if a[i] mod 2 = 0 then
k:=k+1;
if k <> 0 then
for i:=1 to 20 do begin
if a[i] mod 2 = 0 then
write(fout, a[i], ',');
end
else write(fout, 'Четных элементов массиве нет.');
close(fout);
end.
Не нашли ответ?
Похожие вопросы