Подсчитать количество положительных чисел и их сумму - Turbo Pascal

  1. Введя произвольные числа до тех пор,пока не будет введен 0, подсчитать среди них количество положительных чисел и их сумму...


textual

Код к задаче: «Подсчитать количество положительных чисел и их сумму - Turbo Pascal»

program help;
var a,po,k:integer;
begin
repeat
writeln('Число: ');
readln(a);
if a>0 then begin 
po:=po+a ;
K:=K+1;
end;
if a=0 then begin
writeln('Сумма положительных чисел: ',po);
writeln('Количество положительных чисел: ',k);
end;
until a=0;
readln;
end.

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

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



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

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

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

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

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

  1. После символа «:» вставить «*», если количество символов «=» равно 5 строка вводиться пользователем

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

  1. Программа, не могу понять как сделать Определить количество элементов равных нулю в заданной матрице А размерностью n*n.

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