ПОЖАЛУЙСТА,ОЧЕНЬ НАДО!!!!! составить программу: заполнить массив T(4,4): ** главной...

Question

ПОЖАЛУЙСТА,ОЧЕНЬ НАДО!!!!!

составить программу: заполнить массив T(4,4): на главной диагонали элементы =0, остальные по формуле I-J. найти сумму элементов в четный столбцах

Comments

язык?

---

простите,какой язык?

---

на котором нужно написать программу

---

вообще нужен английский

---

но если вам тяжело можно и на русском

---

Язык программирования, на котором нужно написать данную программу (пакскаль, с, делфи)

---

паскаль

Answer 1

Uses crt;varsum,i,j:integer;var mas:array[1..4,1..4]of integer;beginwrite('':3);for i:=1 to 4 dowrite(i:3);writeln;writeln('_______________');for  i:=1 to 4 do beginwrite(i:2,'|');for   j:=1 to 4 do beginmas[i,j]:=i-j;write(mas[i,j]:3);if i mod 2 =0 then sum:=sum+mas[i,j];end;writeln;end;writeln;writeln('Сума элементов в четных столбцах = ',sum); readln;end.

---

Comments

спасибо!

---

https://znanija.com/task/26773112

---

а это знаете как сделать???