Программа нахождения суммы элементов матрицы размером 2х5.
а) открыть новый файл и набрать текст программы:
PROGRAM P8;
VAR I,J,S:INTEGER;
M:ARRAY[1..2,1..5] OF INTEGER;
BEGIN
S:=0;
FOR I:=1 TO 2 DO FOR J:=1 TO 5 DO BEGIN WRITELN('Ввести элементы матрицы (10)’); READLN(M[I,J]); S:=S+M[I,J]; END;
WRITELN(’Сумма=’,S);
END.
б) выполнить программу щелчком по соответствующей кнопке меню или клавишей F9;
в) ввести через клавишу Enter в строку ввода десять чисел и наблюдать результат.
Документ Microsoft Office Word.docx
Программа нахождения суммы элементов матрицы размером 2х5.
ЗАДАНИЕ 8
а) открыть новый файл и набрать текст программы:
PROGRAM P8;
VAR I,J,S:INTEGER;
M:ARRAY[1..2,1..5] OF INTEGER;
BEGIN
S:=0;
FOR I:=1 TO 2 DO FOR J:=1 TO 5 DO BEGIN WRITELN('Ввести
элементы матрицы (10)’); READLN(M[I,J]); S:=S+M[I,J]; END;
WRITELN(’Сумма=’,S);
END.
б) выполнить программу щелчком по соответствующей кнопке меню
в) ввести через клавишу Enter в строку ввода десять чисел и наблюдать
или клавишей F9;
результат.
(Тест: Числа 1;2;3;4;5;6;7;8;9;10 Ответ = 55)
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с
договором-офертой сайта. Вы можете
сообщить о нарушении.
Продолжая использовать наш сайт, вы соглашаетесь с политикой использования Cookies. Это файлы в браузере, которые помогают нам сделать ваш опыт взаимодействия с сайтом удобнее.