Вычислить сумму положительных чисел массива.Написать программку в Pascal.

Program summ_pol_chicel;var a: array [-100..100] of integer;i, b: integer;beginFor i:=1 to 10 do Readln (a[i]);b := 0;For i:=1 to 10 dobegin if a[i] gt; 0 then b := b+ a[i];end;writeln(b);end.

Мария Христунова 2019-09-08 09:18:24

Ничтожно только, что разметка сбилась. Я же щепетильно все это оформлял:(

Леонид Сирвида 2019-09-08 09:26:50

Ничего ужасного. Спасибо большое :)

Stepan Manukovskij 2019-09-08 09:36:05

Это значения, который могут принимать числа из массива

Sofija Mihalycheva 2019-09-08 09:44:46

которые*

Леша Накалов 2019-09-08 09:45:55

Либо это не так работает:)? Я пока ток тренюсь:)

Esenija Proniskova 2019-09-08 09:51:53

Ну да, мой косяк, действительно. Но вроде на трудоспособности проги это никак не сказывается, поэтому пусть будет:)

О проекте

Вычислить сумму положительных чисел массива.Написать программку в Pascal.

Добро пожаловать!