Составить программу : даны действительные . вычислить сумму положительных и произведение четных членов данного массива, если таких членов нет, то выдать сообщение.
Var mas:array[1..1000, 1..1000] of integer; N,M,i,j,k:integer;
Begin Writeln('Введите размер матрицы N*M'); Write('N = '); readln(N); Write('M = '); readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1) then Writeln('Ошибка, указанные значения выходят за пределы матрицы') else Begin Writeln('Введите элементы матрицы');
k:=0; for i:=1 to N do for j:=1 to M do Begin readln(mas[i,j]); if (mas[i,j] mod 2 = 0) then k:=k+1; end;
Writeln(); Writeln('Исходная матрица');
for i:=1 to N do Begin for j:=1 to M do Begin Write(mas[i,j], ' ') end; Writeln(); end;
Writeln(); Writeln('Количество четных элементов = ',k); end;
1) Это кнопки, иконки, поля ввода. Кнопки нажимаются, в поля вводится текст. 2) В Windows -строка заголовка – верхняя строка окна, в которой находится имя программы или имя окна; кнопка сворачивания окна; кнопка восстановления окна кнопка закрытия окна кнопка системного меню строка меню панель инструментов полосы прокрутки рабочее поле строка состояния рамка окна. Вроде все. 3) 1. System 32. Рабочий стол. 2. Мой компьютер, Мои документы, Корзина, Сетевые окружения(Сеть) и управляющие объекты Windows. 4) 1. Иконки, панель задач, папки 2. Ярлык это ссылка на файл, который может находиться где угодно на ПК, а значок это сам файл 3. На панели задач располагается запущенные приложения, панель быстрого доступа, часы... . 4. Папка "Мой компьютер" 5) Ярлык дает ссылку на значок,который запускает. 6) Пуск,панель задач,программы в фоновом режиме,задачи или все, что ты туда поместишь.
