Дан массив целых чисел из 10 элементов. Вычислить одновременно сумму положительн...

March 2022 1 9 Report

Дан массив целых чисел из 10 элементов. Вычислить одновременно сумму положительных и отрицательных чисел.
Нужно написать сначала в письменном виде, а потом перевести на Паскаль.
Помогите срочно!!! Очень нужно, ничего не понимаю в Паскале вообще

Answers & Comments

therealcf2014 Var
a: array [1..10] of integer;
k1, k2, i: integer;
begin
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]<0 then k2:=k2+a[i] else k1:=k1+a[i];
end;
writeln(k1);
writeln(k2);
end.

1 votes Thanks 1

veronikakurasho и что потом вводидь туда когда я включаю программу? xD

veronikakurasho спасибо огромное <3333333333333

therealcf2014 Просто заполни массив 10 числами и программа выводит сумму положительных и отрицательных чисел.

veronikakurasho спасибо :))

Answers & Comments

2344 pentametil 5 propil 37 dietilnonan

pomogite pozhalujsta fotka vnizu23f934a8239e0bf0f935b11dcc38f8a2 12566

tri otryada sazhali derevya pervyj posadiladerevev vtoroj90togo chto posad

iz kakih bromproizvodnyh mozhno poluchit a izopropilamin b anilin vortoetila

pomogite pozhalujsta po himii 1 variant ya proreshala no ne uverena v otvetah

ch a radius traektorii 500 m

pomogite pozhalujstac8ba037231638dc49dd5d0ceacb4a22c 46912

help perevesti chisla iz odnoj sistemy schisleniya v druguyu ispolzuya tablicy pere

pozhalujsta obyasnite podrobno kak reshat okolo okruzhnosti radius kotoroj

reshit sistemu uravnenij x24xyy269 3xy30

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

Helpful Links

Helpful Social