irinanikulshina144
?>

05. Какие представленных процессовинформационные?1. Процессыстроительства зданийсооружений2. Процессыископаемых из недр.3. Процессы химической и механическойочистки воды.4. Процессы получения, передачи, обработки и хранения информации.5. Процессы производства электроэнергии.палмерение параметров​

Информатика

Ответы

utkinslava
Program dmas_20;
uses crt;
const  m=4;
var a:array[1..m,1..m] of integer;
    Max, Sum, iMax, i, k: integer;
begin
randomize;
  For i:=1 to m do
begin
For k:=1 to m do
begin
a[i,k]:=random(50); 
write(a[I,k]:4);
end;
writeln;
end;
  Sum := 0;
  for k:=1 to M do 
  Sum := Sum + a[1,k];
  Max := Sum; 
  iMax := 1;
  for i:=2 to m do 
  begin
    Sum := 0;
    for k:=1 to m do 
Sum := Sum + a[i,k];
    if Sum > Max then 
begin
      Max := Sum;
      iMax := i;
    end;
    end;
writeln('Номер строки ', iMax, ' сумма элементов  ', Max );
readln;
  end.

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

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

05. Какие представленных процессовинформационные?1. Процессыстроительства зданийсооружений2. Процессыископаемых из недр.3. Процессы химической и механическойочистки воды.4. Процессы получения, передачи, обработки и хранения информации.5. Процессы производства электроэнергии.палмерение параметров​
Ваше имя (никнейм)*
Email*
Комментарий*

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

megaromeo
nsmmkrtchyan
turoverova5
slastena69678
Volodka
rezh2009766
Rafigovich1267
om805633748
sergeevich
vis-lyubov8832
marinamarinyuk39
AkulovaAnastasiya
Анна гутлина
Беспалова
evavard