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

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

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

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

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

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

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

Москва 2011.

Оглавление: 

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

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

Входные данные и ожидаемые результаты 3

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

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

    Вводятся  размер одномерного массива и  его элементы. Вывести среднее  арифметическое составных чисел  среди элементов массива, которые  не делятся на 3. 

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

 

program lab1; 

var

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

i,j,n,k:integer;

s:real;

f:boolean; 

begin

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

read(n);

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

for i:=1 to n do

read(a[i]); 

for i:=1 to n do

begin

f:=false;

if a[i] <> 1 then for j:=2 to a[i]-1 do

if a[i] mod j = 0 then f:=true; 

if (f=true) and (a[i] mod 3<>0) and (a[i]<>1) then

  begin

  s:=s+a[i];

  k:=k+1;

  end;

end; 

If k<>0 then

begin

s:=s/k;

writeln('Результат - ',s:5:2);

end

else writeln('Результата нет'); 
 

readln;

readln;

end. 

3. Входные данные и ожидаемые результаты.

N=10

A[i]=2,1,4,12,7, 10, 16,21,13,16

Ожидается S=(4+10+16+16)/4=11,5 
 
 
 

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