нужно помочь срочно

[Grecu Alexandru]

Здраствуйте Помогите пожалуста решить задачу:
разработать программу, которая вычисляет двумерную таблицу 5х5 целое число: Вычислить сумму элементов, расположенных на справа в первом столбце и выше побочной диагонали.
Спосибо за помочь!



ТЕМА: Типы данных живописи. Габаритные таблицы.
Цель: ознакомить студентов с массива типа данных (двумерные таблицы) вы научитесь работать с этими типами данных. Применяя знания и навыки в разработке этих программ.
Габаритные картины определяется с помощью строительства:
Тип <имя типа> = Array [T1, T2] Т3;
Где T1, T2 типа конкретные показатели и компоненты типа Т3
*Тип T2 = Array [1 ... 3 1 ... 4] в режиме реального;
Компоненты двумерной переменной типа таблица явно указано имя переменной с последующим соответствующих индексов, разделенных запятыми и заключить в квадратные скобки.
*Например:
*****Вар м: T2;
обозначение м [1, 1] определенный компонент линии 1, столбец 1;
обозначение м [1, 2] специфический компонент линии 1, колонка 2;
обозначение м [I, J] специфический компонент в строке, столбце J;
**Следующие программы компоненты двумерного таблице с клавиатуры, а затем элементы таблицы суммируются.
**Пример программы 1;

тип T2 = Array [1 ... 3 1 ... 4] в режиме реального
вар м: T2; I, J: Integer; с: реальный;
НАЧАТЬ
WriteLn ('Раз');
для я = 1 до 3 делать
для J = 1 до 4 читаем (м [I, J]);
с: = 0;
для я: = 1 до 3 делать
для J = 1 до 4 сделать S = S + т [I, J];
WriteLn ('Сумма =, с); ReadLn;
конец.

[Аватар]

Пример кода на чем? Паскаль что ли русифицированный?

[Grecu Alexandru]

Program ex 1 ;
type t2 = array [ 1…3 , 1…4 ] of real
var m : t2 ; i , j : integer ; s : real ;
BEGIN
writeln ( ‘ Complectaţi tabelul : ‘ ) ;
for i = 1 to 3 do
for j =1 to 4 do read ( m [ I , j ] ) ;
s : = 0 ;
for I : = 1 to 3 do
for j : = 1 to 4 do s : = s + m [ I , j ] ;
writeln ( ‘ suma = ‘ , s ) ; readln ;
end .

[min@y™]

Пример кода на чем? Паскаль что ли русифицированный?

это новый язык, гугол-траслейт++

[Stilet]

это новый язык, гугол-траслейт++

Ага. Турбо Транскаль

[Аватар]

Вот блин, у меня челюсть отвисла - что за фиговина

[Вадим Мошев]

Вложение 72999

Вложение 73000

Вложение 73001

[min@y™]

Сообщение от Вадим Мошев

Вложение 72999

Вложение 73000

Вложение 73001

хахаха!!!!
упал под стол!!!!

[Stilet]

Вадим Мошев

Ахахах!! Зачет !!

[Вадим Мошев]

Да, это картинки лично моего производства и я знаю, что это БОМБА!