Массивы. Паскаль. - Форум
Пятница, 09.12.2016, 16:28
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Массивы. Паскаль.
Массивы. Паскаль.
АльбиночкаДата: Вторник, 10.05.2011, 11:23 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 8
[ 0 ]
Статус: Offline
Среди строк заданной целочисленной матрицы С размером 7х7, компоненты которой не превышают 10, найти строку с максимальным значением элемента. Предусмотреть при вводе проверку на целочисленность вводимых чисел.
ПОМОГИТЕ, ПОЖАЛУЙСТА, решить задачу. Заранее благодарю!
 
AlexGДата: Вторник, 10.05.2011, 16:23 | Сообщение # 2
Сержант
Группа: Заблокированные
Сообщений: 6
[ 0 ]
Статус: Offline
для проверки на целочисленность используй дерективу {$I-} {$I+}
если число не целое то ioresult будет =1


Сообщение отредактировал AlexG - Вторник, 10.05.2011, 16:47
 
АльбиночкаДата: Воскресенье, 15.05.2011, 17:52 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 8
[ 0 ]
Статус: Offline
Пожалуйста, напишите полностью программу, у меня ни че не получается. help help help help
 
NailДата: Воскресенье, 15.05.2011, 18:41 | Сообщение # 4
Генералиссимус
Группа: Заблокированные
Сообщений: 127
[ 0 ]
Статус: Offline
Сделаю. Пиши
Mail: shakurovnail@mail.ru
Icq: 6688101
Skype: shakurovnail
 
АльбиночкаДата: Понедельник, 16.05.2011, 20:44 | Сообщение # 5
Сержант
Группа: Новичок
Сообщений: 8
[ 0 ]
Статус: Offline
А тут можете написать
 
KOT_B_MEIIIKEДата: Вторник, 17.05.2011, 20:34 | Сообщение # 6
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Code
program matrix;
const n=4;
label err;
var t:array [1..n,1..n] of integer;i,j,max,strmax:integer;
begin
writeln('Vvodite elemnti matrici:');
max:=0;strmax:=1;
for i:=1 to n do
     begin
     for j:=1 to n do
         begin
         read(t[i,j]);
         write(t[i,j]:3);
         if (max<t[i,j]) then
            begin
            max:=t[i,j];
            strmax:=i
            end;
         end;
     writeln;
     end;
writeln ('Max element raspolozhen v stroke ' ,strmax);
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Массивы. Паскаль.
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016