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

Тема: «Разработка, отладка и испытание простых циклических алгоритмов и программ с известным числом повторений обработки массивов».

Цель работы: написание программ обработки одномерных массивов.

Программные средства: система программирования Borland Pascal.

ЗАДАНИЕ №2.

В соответствии со своим вариантом составить графическую схему алгоритма и написать программу. Программа должна осуществлять ввод и печать исходного одномерного массива; выполнять в соответствии с условиями действия и печатать результаты.

 

12. Найти среднее арифметическое чисел, непопадающих в промежуток [A, B], и подсчитать количество положительных чисел, стоящих на местах, кратных 3.

 

Program lab5;

Var

N, K,l, I:integer;

S,a,b,sa: real;

x: array [1..50] of real;

begin

writeln ('Введите a');

readln (a);

writeln ('Введите b');

readln (b);

writeln ('Введите кол-во элементов в массиве ');

readln (N);

for i:=1 to N do

begin

write ('Введите х [', i, '] ');

readln (x[i])

end;

S:=0;

K:=0;

l:=0;

For i:=1 to N do

If (x[i]<a) or (x[i]>b)

then

begin

S:=s+x[i];

l:=l+1

end;

For i:=1 to N do

if (x[i]>=0) and(i mod 3=0)

then

K:=k+1;

If l=0 then SA:=0 else

sa:=s/l;

writeln (' интервал и средние арифметическое равно [', a:7:3, ',', b:7:3, ']=', sa:7:3);

writeln(' количество положительных чисел, стоящих на местах, кратных 3 равно k=', k);

end.