лабораторная работа / Doc1

Балаковский Политехнический Институт Техники Технологии и Управления.

Кафедра: Управление и информатика в технических системах.

Лабораторная работа

По дисциплине: Программирование и основы алгоритмизации.

Выполнил студент

III курса группы УИТ-31в

Лапушкин А.

Проверил

Токарев Андрей Николаевич

Да

Нет

Нет

Да

Да

Нет

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

Program Lab_4 (input,output);

const

P=100;

var

m: array[1..P] of integer;

i, min, K, R: integer;

begin

Writeln ('Введите 10 элементов массива ');

for i:=1 to 10 do

readln (m[i]);

min:=m[1];

for i:=1 to 10 do

if m[i]<min then

min:= m[i];

write ('Введите число K=');

readln (K);

R:=0;

for i:=1 to 10 do

if (m[i]<0) and (m[i] mod K = 0) then R:=i;

writeln ('Минимальный элемент массива = ', min);

if R>0 Then writeln ('В данном массиве есть отрицательные элементы кратные K', 'Номер элемента', R)

else writeln ('В данном массиве нет отрицательных элементов кратных K')

end.

Результаты вычислений.

Введите 10 элементов массива

1

2

3

4

5

6

-7

8

9

10

Введите число K=7

Минимальный элемент массива=-7

В данном массиве есть отрицательные элементы кратные K Номер элемента 7