Сформировать массив из 10 случайных чисел от 2 до 8…

Сформировать массив из 10 случайных чисел от 2 до 8,1) все четные числа разделить на 2, все нечетные увеличить в 3 раза.2) вывести на экран все числа, которые больше своего соседа слеваребята, помогите пожалуйста, нужно очень срочно. Хотя бы 1 часть)

в избранное

aerinder

05 августа 2022

Program z10; var a,b: Array [1… 10] of integer; i: integer; BeginRandomize; For i: =1 to 10 dobegina[i]: =random (999); end; for i: =1 to 10 dobeginif (a[i] mod 2=0) then [i]: =a[i] div 2 else a[i]: =a[i]*3; write (a[i],'); end; 2) Program z10; var a,b: Array [1… 10] of integer; i,r: integer; BeginRandomize; For i: =1 to 10 dobegina[i]: =random (999); end; r: =a[1]; for i: =2 to 10 dobeginif (a[i]>r) then write (a[i],'); r: =a[i]; end; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?