В массиве хранится 10 значений. Найти среднее арифметическое: 1) элементов с чет...

June 2022 1 3 Report

В массиве хранится 10 значений. Найти среднее арифметическое: 1) элементов с четным номером; 2) четных элементов. Помогите пожалуйста, нужно написать на PascalABC

Answers & Comments

IlyaTypoy 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.

0 votes Thanks 1

Answers & Comments

forma socialnoj organizacii v kotoroj glavenstvuyushaya rol prinadlezhit zhenshine

pomogiteded7075d0a5f5d6e63689dcdbe311337 76908

nuzhno razlozhit na mnozhiteli pomogite pozhalujsta 1 2x2x y2 2xy3

pomogite reshit sistemu uravnenijd444f4e68936071582ff7e5a6d4dca47 61143

pomogite pozhalujsta s resheniem nuzhno vychislit

pomogite reshit nuzhno razlozhit na mnozhiteli otvet dolzhen poluchitsya aba 4

pomogite pozhalujsta nuzhno razlozhit na mnozhiteli s resheniem esli ne trudno

pomogite reshit pozhalujsta s resheniem budu blagodaren

pomogite reshit pozhalujsta s resheniem7350c9539d4232dcb2d7ac2a04915f2a 49974

pomogite pozhalujsta reshit s resheniem859d309bcd5c530f0df560fc897d371a 68766

рекомендуемые вопросы

Helpful Links

Helpful Social