Регистрация
anna4513
14.01.2021 13:10
Информатика
Есть ответ 👍

Сделать в паскале: дан массив из 30 элементов, созданный случайным образом, значения элементов которого находится в диапазоне [-20,30]. вывести в файл нечетные элементы массива. если таких чисел нет, то вывести сообщение об этом факте.

125
214
Посмотреть ответы 2

Ответы на вопрос:

Forsenboy
Forsenboy
4,6(74 оценок)
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.
Makich4
Makich4
4,7(16 оценок)
65 в восьмеричной системе 2102

Популярно: Информатика