Найдите сумму всех положительных элементов матрицы. на паскале

Var       n, m, sum, i, j: integer;       a: array [1..10000] of array [1..10000] of integer; begin       read(n, m);       for i : = 1 to n do             for j : = 1 to m do read(a[i][j]);       for i : = 1 to n do             for j : = 1 to m do                   if (a[i][j] > 0) then sum : = sum + a[i][j];       write(sum); end.  но  для времени и  сил  можно не создавать массив: var       n, m, sum, el, i, j: integer; begin       read(n, m);       for i : = 1 to n do             for j : = 1 to m do begin                    read(el);                   if (el > 0) then sum : = sum + el;             end;       write(sum); end.

Возможно так решается.

Задача

Из двух чисел с разной четностью вывести на экран нечетное число.

Решение

Описание переменных:  

a, b - данные числа

Алгоритм решения задачи:  

Пользователь вводит четное и нечетное число. Последовательность их ввода может быть любой. Таким образом, неизвестно какая из двух переменных (a или b) содержит нечетное число. Чтобы выяснить это, используется конструкция условного ветвления (if-else), а также операция нахождения остатка от целочисленного деления (mod).

Если результат нахождения остатка от деления значения переменной a на 2 равен нулю, значит, эта переменная содержит четное число. Тогда нечетное число находится в переменной b и его следует вывести на экран. Если же результат нахождения остатка не равен нулю, значит, a содержит нечетное число. Оно выводится в ветке else.

Программа на языке Паскаль:  

var a, b: integer;

begin

writeln('Введите одно четное и одно нечетное числа');

readln(a, b);

if a mod 2 = 0 then

 writeln(b,' - нечетное число')

else

 writeln(a,' - нечетное число');

end.

Примеры работы программы:

Введите одно четное и одно нечетное числа

4 5

5 - нечетное число

Введите одно четное и одно нечетное числа

5 4

5 - нечетное число

Примечания:  

В данном случае предполагается, что пользователь осуществляет ввод правильно, т. е. всегда вводит одно четное и одно нечетное число. Если же ввод был некорректный (два четных или два нечетных числа), то программа будет работать неправильно. В случае двух четных чисел программа выведет второе. В случае двух нечетных - первое введенное. Чтобы избежать подобных недоразумений, программу можно усовершенствовать следующим образом:

var a, b: integer;

begin

writeln('Введите одно четное и одно нечетное числа');

readln(a, b);

if (a mod 2 = 0) and (b mod 2 <> 0) then

 writeln(b,' - нечетное число')

else

 if (a mod 2 <> 0) and (b mod 2 = 0) then

  writeln(a,' - нечетное число')

 else

  writeln('Некорректный ввод');

end.

В данном случае в заголовках условного оператора проверяются оба числа: одно - на четность, другое - на нечетность. Если оба будут четные, или оба будут нечетные, то сработает тело вложенного оператора else.

1)Текстовый файл можно сохранить когда вы его закрываете,нажали на крестик в окне программы или там есть специальная кнопка что-бы его сохранить,соглашаетесь и идете по своим делам

2)Создайте новый файл, для этого:  

  1)Выполните команду New из меню File.            

  2)Выберите тип файла – Graphic Editor File (Файл Графического     Редактора).

3)Выберите из выпадающего списка расширение .gdf.

4)Нажмите кнопку ОК.

5)После этого откроется новое пустое окно Графического Редактора.

6)Для того, чтобы сохранить файл, выполните команду Save As из меню File.

3)Что-бы сохранить файл надо его доделать выйти нажав на крестик в окне программы и вам вылезет окошко "Сохранить этот файл" если да то выбираете куда его сохранять,Что-бы закрыть файл достаточно нажать на крестик в окне программы, ну а что-бы открыть файл надо навести на него стрелку и дважды кликнуть!