лабораторная работа / вар3 / лаба № 5 вариант 3

Министерство образования и науки Российской Федерации

Федеральное агентство по образованию

Саратовский государственный технический университет

Балаковский институт техники, технологии и управления

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

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

на языке TURBO PASCAL

Выполнил:

Проверил:

2010

Цель работы: освоение методов вычисления массивов на Турбо Паскале.

Задание 3: Найдите количество элементов массива с четными и нечетными значениями.

Текст программы:

program massiv;

var

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

i : byte; x,y: integer;

begin

Write('Введите массив');

for i:= 1 to 10 do Read(a[i]);

x:= 0;

for i:=1 to 10 do if a[i] mod 2=0 then x:= a[i];

y:= 0;

else y:= y+1;

WriteLn ( ' y =', y );

WriteLn ( ' x =', x );

end.

Результат вычисления:

X=5

Y=5

Вывод: в этой лабораторной работе научились работать с массивами.