Ответы на вопрос:
1.program z; var a: array [1..10] of integer; i,t: integer; s: real; beginfor i: =1 to 10 dobegina[i]: =random(1,100); write(a[i]: 4); if (odd(i)) and (odd(a[i])) then begins: =s+a[i]; t: =t+1; end; end; writeln; write('cреднее арифметическое = ',s/t); end.2.program z; var a: array[1..10] of integer; max,i: integer; beginwriteln('исходный массив'); for i: =1 to 10 dobegina[i]: =random(1,100); write(a[i]: 4); if a[i]> max then max: =a[i]; end; writeln; writeln('измененный массив'); for i: =1 to 10 dobeginif not(odd(a[i])) then a[i]: =max; write(a[i]: 4); end; end.
Популярно: Информатика
-
annushkan025.02.2022 19:32
-
Выгуки14.07.2020 06:48
-
looool613.02.2021 10:21
-
rufa1215.06.2023 02:09
-
SuperAlinina05.04.2020 11:38
-
9092005apv26.02.2021 17:54
-
asanali228815.08.2021 03:30
-
dasha45da05.05.2020 22:46
-
aidargaliullin24.02.2021 06:56
-
ПеЧеНьКа81119.09.2021 09:50