Вычислить сумму положительных чисел массива.
Написать программу в 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] > 0 then b := b+ a[i];end;writeln(b);end.
8 комментария:
Жалко только, что разметка сбилась. Я же аккуратно все это оформлял:(
Ничего страшного. Спасибо большое :)
Пересохраните не в Хроме, а в другом браузере
А можно узнать, зачем массив из 10 числе объявлять с индексами от -100 до 100?
Это значения, который могут принимать числа из массива
которые*
Или это не так работает:)? Я пока ток тренюсь:)
Ну да, мой косяк, действительно. Но вроде на работоспособности проги это никак не сказывается, поэтому пусть будет:)
Жалко только, что разметка сбилась. Я же аккуратно все это оформлял:(
Ничего страшного. Спасибо большое :)
Пересохраните не в Хроме, а в другом браузере
А можно узнать, зачем массив из 10 числе объявлять с индексами от -100 до 100?
Это значения, который могут принимать числа из массива
которые*
Или это не так работает:)? Я пока ток тренюсь:)
Ну да, мой косяк, действительно. Но вроде на работоспособности проги это никак не сказывается, поэтому пусть будет:) Список предметов
