Лабораторная работа №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.