Вопрос по информатике:
ПОЖАЛУЙСТА,ОЧЕНЬ НАДО!!!!!
составить программу: заполнить массив T(4,4): на главной диагонали элементы =0, остальные по формуле I-J. найти сумму элементов в четный столбцах
Пожаловаться
- 25.09.2015 02:44
- Информатика
- remove_red_eye 4013
- thumb_up 33
Ответы и объяснения 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.
Пожаловаться
- 26.09.2015 13:52
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы