Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 28.03.2013, 01:11   #1 (permalink)
olchik1980
Новичок
 
Регистрация: 13.03.2013
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Дан квадратный массив целых положительных чисел 10 х 10

Дан квадратный массив целых положительных чисел 10 х 10. Опишите на одном из языков программирования алгоритм вычисления суммы элементов строки, в которой расположен элемент с минимальным значением. Вывести значение суммы на печать. Предполагается, что такой элемент единственный.
olchik1980 вне форума   Ответить с цитированием

Старый 28.03.2013, 01:11
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Ваша тема имеет сходства с данными топиками

Даны три положительных вещественных числа x, y, z
Определить количество положительных элементов матрицы
Из положительных элементов исходного массива сформировать новый массив
Вывести список положительных чисел, список отрицательных чисел на C#
Исходный текст содержит список целых десятичных чисел

Старый 28.03.2013, 01:35   #2 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

Язык программирования?
Léon вне форума   Ответить с цитированием
Старый 28.03.2013, 21:49   #3 (permalink)
interacia
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.
interacia вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 08:37.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.