Подсчитать сумму элементов массива больше нуля - Turbo Pascal

  1. Ввести с клавиатуры одномерный массив из 5 чисел , подсчитать сумму элементов больше нуля и вывести результат на экран монитора.


textual

Код к задаче: «Подсчитать сумму элементов массива больше нуля - Turbo Pascal»

var
  A: array [1..5] of integer;
  k, i, sum: integer;
 
begin
  for i := 1 to 5 do
    readln(A[i]);
  sum := 0;
  k := 0;
  for i := 1 to 5 do
    if A[i] > 0 then
    begin
      sum := sum + A[i];
      inc(k);
    end;
  if k <> 0 then
    writeln('Summa = ', sum)
  else  
    writeln('Нет положительных чисел.');
end.

СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.600 из 5



Похожие ответы
  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Два нечетных простых числа, разность между которыми равна 2, называются близнецами. На интервале от 1 до 1000 найти всех близнецов и подсчитать количество пар. Необходимо сделать ,используя только циклы ,а без функций и процедур я хз как(

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. Создать текстовый файл, в который записать в столбик несколько чисел (<20). Составить программу, которая подсчитывала бы количество чисел в файле, а затем дописывала бы в его конец столько случайных чисел, чтобы всего чисел оказалось 20. Кроме того, программа должна найти минимальное и максимальное число в полученном файле.

  1. дан одномерный массив n целых . подсчитать количество вхождений многозначных чисел в данной последовательности

  1. Дано натуральное число n, входной поток данных: действительные числа a1,a2,a3, ... , aN. Получите удвоенную сумму всех положительных членов входного потока данных a1,a2,a3, ... , aN. Составьте код программы и блок-схему.

  1. Даны результаты, ререписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990г.

  1. Дан произвольный одномерный массив (элементы вводятся с клавиатуры). Формирование элементов массива, обработку и если нужно вывод массива оформить отдельными подпрограммами. Вычислить сумму нечетных элементов, а все остальнве удвоить.

  1. Массив А(30) заполнить целыми случайными числами в диапазоне от 5 до 115. Вывести те значения А(I)(I = 2, 3, . . ., 29), которые больше своих соседей, и подсчитать их количество N. Вывести также весь массив А.