Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 40.

Вычисление суммы положительных элементов массива

program PositivSumm;
  const N=10;
  type Mas=fray [1..N] of integer;
  var a: Mas;
      i: integer; { Счетчик цикла}
      S:integer; { Копилка - переменная для суммирования положительных элементов}
begin
{ Заполним массив случайными числами в диапазоне -100..+100 }
  randomize;
  for i:=l to N do
    begin
      a[i]:=-100+random(201);
      write(a[i]:5)
    end;
  writeln;
{ Присвоим переменным начальные значения }
  S:=0; { Переменная S - аккумулятор. Она будет накапливать сумму всех положительных элементов. Нужно присвоить ей такое начальное значение, чтобы оно не повлияло на результат суммирования. Таким числом является ноль }
  for i:=l to N do { Перебираем все элементы массива }
    if A[i]>0 then { Проверяем каждый элемент на положительность }
      S:=S+A[i]; { Если элемент положительный, добавляем значение элемента к аккумулятору }
{ Выводим результат на экран: }
  writeln('Сумма положительных элементов =',S);
  readln
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100