Одномерные массивы.Выполнил: студент гр. 10кр1 Шиняев Н.Н. Принял: ст.преподователь Кафедры ЕН и ТД Мордвинкина М. В.
Лабораторная работа №4 Работа с одномерными и двумерными массивами Цель работы: 1. Построение схем алгоритмов с использованием массивов; 2. Разработка программ с использованием одномерных и двумерных массивов Задание: №1.Составить схему алгоритма и программу определения количества и адресов нулевых элементов массива вещественных чисел К={kj}, j=1,m, m - число элементов в массиве К (m£90). Вывести на экран найденное количество, а также все найденные адреса. №2. В прямоугольной матрице размером М*К,, имеющей имя МАМ содержаться целые числа. М- число строк, К- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму отрицательных элементов в каждом столбце. Определить столбец с миниимальным значением этой суммы и вывести его номер на экран. Составить блок-схему.
Одномерные массивы. Приложение Г (продолжение) Блок схемы программы №4(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)
|
