Дан массив из 10 элементов в диапазоне от 0 до 100 Найти S элементов,больших 50...

July 2022 1 12 Report

Дан массив из 10 элементов в диапазоне от 0 до 100
Найти S элементов,больших 50 и посчитать их количество

Answers & Comments

Verified answer

Program n1;
var a: array[1..10] of integer;
S,i,k: integer;
begin
randomize;
write('массив: ');
S:=0;
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(101);
write(a[i],' ');
end;
writeln;
write('сумма a[i]>50: ');
for i:=1 to 10 do if a[i]>50 then
begin
k:=k+1;
S:=S+a[i];
end;
writeln(S);
write('кол-во: ', k);
end.

1 votes Thanks 0

ngolutvoni3sc Спасибо

Answers & Comments

Verified answer

tarutinskij manevr pozvolil 1 perekryt napoleonu dorogu v moskvu 2 ostanovit

ustanovite sootvetstvie a vtorzhenie napoleona v rossiyu 1 6 oktyabrya 1812

prichiny porazheniya napoleonovskih vojsk v rossii 1 vsenarodnyj harakter vojny 2

5 15 vse

sredi dannyh predlozhenij najdite to v kotorom net slovosochetaniya s upravleniem

sostavte tablicu po teme vhozhdenie respublik v sostav sssr god voshedshie

faktory smeshayushie krivuyu predlozheniya primery 1tehnologii proizvodstvv 2ceny

pomogite pozhalujsta dajte otvet i po vozmozhnosti esli najdete reshenie prisylaj

dym v drevnej rusikak ponyat

chto takoe freska ikona miniatyura

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

Helpful Links

Helpful Social