дан одномерный массив, получить удвоенную сумму всех положительных членов массив...

August 2021 1 10 Report

дан одномерный массив, получить удвоенную сумму всех положительных членов массива и найти сумму чисел, которые не четные и отрицательные

Answers & Comments

larinfo Program zadacha;vara: array[1..1000] of integer;i,n,sum_pol,sum_otr: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000)-500;write(a[i]:6);end;
sum_pol:=0;sum_otr:=0;for i:=1 to n do beginif a[i]>0 then sum_pol:=sum_pol+a[i];end;writeln();writeln('udvoennaya summa polojit. chisel = ', sum_pol*2);
for i:=1 to n do beginif (a[i]<0) and (i mod 2 <> 0) then sum_otr:=sum_otr+a[i];end;
writeln('summa otricat. i nechetn. chisel = ', sum_otr);end.

1 votes Thanks 0

v777or777 спасибо вам огромное

Answers & Comments

dan odnomernyj massivpoluchit udvoennuyu summu vseh polozhitelnyh chlenov massiva

40 ballov plmogite mne s anglijskim

50balov pomogite s anglijskim 8910

50 balov pomogite s anglijskim 6 uprazhnenie

dan massiv celyh chisel ne ispolzuya drugie massivy perestavte ego elementy v ob

pomogite s informatikoj pozhalujsta35e6c546040a2647ac65bf884e315815 65722

pomogite s 6 uprazhneniemd559ff2c9eea7c4fe3c427043502287f 54242

uprazhnenie 5 pomogite716cf04a1072a824b555377ebd121ac4 76440

uprazhnenie 10 pomogitef2d863c4a6636da65eef97cff3b7df1b 58719

pomogite pozhalujsta umolyayua4c30ec298346c416fe59b7c2db58219 1497

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

Helpful Links

Helpful Social