28.03.2013, 01:11 | #1 (permalink) |
Новичок
Регистрация: 13.03.2013
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Дан квадратный массив целых положительных чисел 10 х 10
|
28.03.2013, 01:11 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ваша тема имеет сходства с данными топиками Даны три положительных вещественных числа x, y, z Определить количество положительных элементов матрицы Из положительных элементов исходного массива сформировать новый массив Вывести список положительных чисел, список отрицательных чисел на C# Исходный текст содержит список целых десятичных чисел |
28.03.2013, 21:49 | #3 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
Код:
program Matrix2; var j,i,Min,num,SUM:integer; a: array [1..10,1..10] of integer; begin // Ввод данных // Решение Min:=0; for i:=1 to 10 do begin write('Введите строку ',i,'):'); for j:=1 to 10 do read(a[i,j]); end; // Ответ Min:=a[1,1]; num:=1; for i:=1 to 10 do for j:=1 to 10 do if Min>a[i,j] then num:=i; SUM:=0; for j:=1 to 10 do Sum:=Sum+a[num,j]; writeln; writeln('Ответ:',Sum); end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|