1. Информатика
  2. Составить программу для решения

Составить программу для решения .найти сумму всех положительных элементов массива,состоящего из семи элементов.

dflbvdflbv dflbvdflbv    3   30.07.2019 12:10    0

Ответы
19729ром 19729ром  27.09.2020 22:52

var

i, s:integer;

a: array [1..7] of integer;

begin

for i:=1 to 7 do

begin

writeln('Введите эл. массива A[', i, ']');

readln(A[i]);

end;

for i:=1 to 7 do

if a[i]>0 then s:=s+a[i];

writeln('Сумма всех положительных элементов массива: ', s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
нан08 нан08  24.03.2020 19:13
Задание по информатике на тему: вставка и замена символа. задание: вставкаПрснльнй кмпьютер: сстемнй блк (матринск плт, цнтрльнй прцсср, пртвн пмть, жсткй дск), ВНШН СТРА, клвтр,...
mmmdz mmmdz  24.03.2020 19:18
Алгоритм вычисления функции H(n), где n - натуральное число, задан следующими соотношениями: H(1)=1, H(n)=H(n-1)*n, при n 1 Чему равно значение функции H(2)?...
makssssimfrank makssssimfrank  24.03.2020 19:27
Елементи кола пронумеровані так: 1-радіус, 2-діаметр, 3-довжина, 4-площа. Дано номер елемента і його значення. Знайти інші елементи​...
Zauchka17 Zauchka17  05.03.2020 07:11
Рассмотрите программный код. Выполните оптимизацию...
427v2 427v2  05.03.2020 07:04
Рассмотрите программный код, выполните оптимизацию уменьшив количество переменных...
ПотнаяБабка2000 ПотнаяБабка2000  05.03.2020 07:04
Элемент последовательности называется локальным максимумом, если он строго больше предыдущего и последующего элемента последовательности. Первый и последний элемент последовательности...
111110098735280 111110098735280  26.07.2019 03:40
Вінні-пух,п ятачок і кролик вирізали три прапорці різного кольору: синвй,зелений,червоний.кролик вирізав не червоний,а вінні-пух не червоний і не синій.якого кольору прапорець...
artymukina artymukina  26.07.2019 03:40
Решить 3. с клавиатуры вводится четырехзначное число. получить число, равное произведению его цифр. 4. с клавиатуры вводится натуральное число п. узнайте в нем количество цифр....
Assel0802 Assel0802  26.07.2019 03:40
Решить 1. напишите программу, вычисляющую площадь прямоугольника. с клавиатуры вводятся два действительных числа - стороны прямоугольника. необходимо вычислить его площадь и...
Olga831106 Olga831106  26.07.2019 14:50
Написать программу в паскале, массив который меняет 5 и 3 строку....

Популярные вопросы