Обработка одномерных массивов

МОСКОВСКИЙ  ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ЭКОНОМИКИ, СТАТИСТИКИ И ИНФОРМАТИКИ. 

КАФЕДРА МАТЕМАТИЧЕСКОГО ОБЕСПЕЧЕНИЯ И  АДМИНИСТРИРОВАНИЯ ИНФОРМАЦИОННЫХ СИСТЕМ. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

ЛАБОРАТОРНАЯ  РАБОТА № 2

ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ (ВЕКТОРОВ). 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Выполнил  студент группы  ДМК – 101

Преподаватель: Сорока Р.И. 
 
 
 

Москва 2011.

Оглавление: 

Постановка  задачи 3

Распечатка  программы 3

Распечатка  результатов 4

Контрольный просчет 4 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

1. Постановка задачи.

 

Дан  одномерный  массив А(N). Если все элементы этого массива (вектора) образуют геометрическую прогрессию, то найти среднее арифметическое элементов вектора кратных пяти. 

2. Распечатка программы.

 

program lab2;

uses crt;

var

a:array[1..50] of integer;

i,n,num:integer;

c,rez:real;

f:boolean; 

begin

clrscr;

rez:=0;

num:=0;

f:=true; 

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

readln(n);

writeln('введите  элементы массива');

for i:=1 to n do

read(a[i]); 

c:=a[2]/a[1]; 

for i:=2 to n do

if c <> (a[i]/a[i-1]) then f:=false; 

if f then

for i:=1 to n do

if a[i] mod 5 = 0 then begin rez:=rez+a[i]; num:=num+1; end; 

rez:=rez/num; 

if f then writeln('результат - ',rez:5:0) else

writeln('вектор - не  геометрическая прогрессия'); 
 

readln;

readln;

end. 
 
 
 
 
 
 
 

3. Распечатка результатов.

 
 
 
 

4. Контрольный просчет.

Rez:=2340 / 4 = 585