Васильевна Владимирович
?>

Подготовьте рассказ об устройствах для роботы с данными, о которых не сказанно в этом пункте

Информатика

Ответы

Елена_Кошевой
Фото скинь ?!?!?!?!??
Vladimirovna Dmitrieva
Смотри на скриншот я сделал просто не хочу чтоб форматировка текста портилась.Все работает!
const n=3;m=4;
var a:array [1..n,1..m] of integer;    i,j,k,max:Integer;    ind:array [0..1] of Integer=(1,1);
begin 
Randomize; 
 for i:=Low(a) to High(a) do 
 for j:=Low(a) to High(a[1]) do 
   a[i,j]:=Random(100); 
for i:=Low(a) to High(a) do 
  begin   
  writeln;   
for j:=Low(a) to High(a[1]) do 
 write(a[i,j]:3); 
 end; 
 max:=a[1,1]; 
 for i:=Low(a) to High(a) do   
for j:=Low(a) to High(a[1]) do
    if a[i,j]> max then   
  begin 
     max:=a[i,j];   
    ind[0]:=i;     
  ind[1]:=j;     
end;     
writeln; 
Writeln(' Max element: ',max);
 Write(' Index: '); 
 for i:=0 to 1 do 
 write(ind[i],' ');
 Readln;
end. 
Составьте программу, определяющую максимальный элемент и его индексы матрицы а размерами mxn(паскаль
vrn3314
1. У файлі зберігається блок інформації.
2. Від програми в якому він створюється, редагується, зберігається.ї
3. Дозволяється використовувати до 255 символів.Дозволяється використовувати символи національних алфавітів, зокрема російського.Дозволяється використовувати пробіли та інші раніше заборонені символи, за винятком наступних дев'яти: / \ :*?"|.В імені файлу можна використовувати кілька точок. Розширенням імені вважаються всі символи, які стоять за останньою крапкою.
4. Для зручності і сортування.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Подготовьте рассказ об устройствах для роботы с данными, о которых не сказанно в этом пункте
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

info40
mayorovmisc6
lion13
ustinovalubov6666
AlekseiBunina1895
Vasileva
egoryuzbashev
sargisyan77
Anait_Natalya451
pashyanaram
Ермакова Ирина674
qcrv15312
TSKaraulova
Малыхин Валерьевна621
Allahverdi_Мария475