Учебное пособие: Обработка массивов данных в среде Turbo Pascal

VAR

A: ARRAY [1.. 10, 1.. 8] OF INTEGER;

B: ARRAY [1.. 10] OF INTEGER;

I, J, S: INTEGER;

BEGIN

{ Ввод целочисленной матрицы А 10х8 }

FOR I:= 1 TO 10 DO

FOR J: = 1 TO 8 DO

READ ( A[ I, J] );

{ Вычисление суммы положительных элементов каждой строки матрицы А и формирование массива В }

FOR I: = 1 TO 10 DO

BEGIN

S: = 0;

FOR J: = 1 TO 8 DO

IF A [ I, J ] > 0 THEN S: = S + A [ I, J ];

B [ I ]: = S;

END;

{ Вывод сформированного массива В на экран }

FOR I: = 1 TO 10 DO WRITELN ( B [ I ] );

END.

4. ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ

Для выполнения работы необходимо:

а) повторить правила техники безопасности при работе с вы-числительной техникой;

б) изучить раздел “Массивы” лекционного курса, а также тео-ретическую часть настоящих методических указаний;

в) получить у преподавателя вариант задания (образцы зада-ний приведены в приложении);

г) в соответствии с заданием написать программу на языке TurboPascal;

д) ввести программу в компьютер, отладить и результаты вы-полнения показать преподавателю;

е) в соответствии с требованиями, приведенными в разделе 5, оформить отчет по лабораторной работе;

ж) защитить лабораторную работу, продемонстрировав препо-давателю: