Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

лабораторная работа / Лабораторная работа5

.doc
Скачиваний:
52
Добавлен:
10.02.2014
Размер:
27.14 Кб
Скачать

Лабораторная работа№5.

Задание: Вычислить сумму отрицательных элементов массива и их колличество.

БЛОК СХЕМА. ПРОГРАММА.

Program lab5;

Var A:array [1..10] of real; I,n: integer; s: real;

Begin

For i:=1 to 10 do read(A[i]);

S:=0;

N:=0;

For i:=1 to 10 do begin

If A[i]<0 then s:=s+A[i];

If A[i]<0 then n:=n+1;

End;

Write(‘s=’, s:12:6, ‘n=’, n:5);

End.