В ПАСКАЛЕ СДЕЛАТЬ:
Дан массив из 20 элементов, созданный случайным образом, значения элементов которого находится в диапазоне [-20,20]. Вывести в файл четные элементы массива. Если таких чисел нет, то вывести сообщение об этом факте.
Дан массив из 20 элементов, созданный случайным образом, значения элементов которого находится в диапазоне [-20,20]. Вывести в файл четные элементы массива. Если таких чисел нет, то вывести сообщение об этом факте.
More Questions From This User See All
Answers & Comments
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.