Одномерные массивы.

Выполнил: студент гр. 10кр1

Шиняев Н.Н.

Принял: ст.преподователь

Кафедры ЕН и ТД

Мордвинкина М. В.

 

 

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

Работа с одномерными и двумерными массивами

Цель работы:

1. Построение схем алгоритмов с использованием массивов;

2. Разработка программ с использованием одномерных и двумерных массивов

Задание:

№1.Составить схему алгоритма и программу определения количества и адресов нулевых элементов массива вещественных чисел К={k_j}, j=1,m, m - число элементов в массиве К (m£90). Вывести на экран найденное количество, а также все найденные адреса.

№2. В прямоугольной матрице размером М*К,, имеющей имя МАМ содержаться целые числа. М- число строк, К- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму отрицательных элементов в каждом столбце. Определить столбец с миниимальным значением этой суммы и вывести его номер на экран. Составить блок-схему.

 

 

Одномерные массивы.

Приложение Г (продолжение)

Блок схемы программы №4(1)

 

 

да

		S:=S + 1

да

 

Приложение Г (продолжение)

Листинг программы №4(1)

Program laba4;

Uses crt;

Var m:array[1..90]of integer;

S:integer;

j,K:integer;

Begin Clrscr;

Write('‚Введите число элементов в массиве K=');

Readln(K);

For j:=1 to K do read(M[j]);

S:=0;

begin

For j:=1 to K do

If M[j]=0 then begin S:=S+1;

Writeln(' Адреса нулевых элементов M[',j,']');

end;

Writeln(' Количество нулевых элементов S=',S);

end;

readkey;

End.

 

Приложение Г (продолжение)

Результат тестирования программы№4(1)