Вопрос по информатике:
Помогите написать программы)
1.дан массив 10 на 10,подсчитать сумму элементов расположенных на главной диагонали.
2.дан массив 10 на 10,найти наименьший элемент массива.
спасибо за помощь)
- 15.03.2018 19:54
- Информатика
- remove_red_eye 12043
- thumb_up 37
Ответы и объяснения 1
Паскаль
1)Program abc; Uses crt;
var S:integer; a:array [1..10,1..10];
begin
For i:=1 to 10 do
For j:=1 to 10 do
read(a[i,j]);
writeln;
begin
S:=0;
For i:=1 to 10 do
For j:=1 to 10 do
if i=j then S:=S+a[i,j];
write('Сумма равна',S)
end.
2)
Program abc; Uses crt;
var min:integer; a:array [1..10,1..10];
begin
For i:=1 to 10 do
For j:=1 to 10 do
read(a[i,j]);
writeln;
min:=a[1,1];
For i:=1 to 10 do
For j:=1 to 10 do
if a[i,j] writeln('Минимальный элемент равен',min); end.
- 16.03.2018 20:04
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.