М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
jhghjlkuyfjy
jhghjlkuyfjy
21.04.2021 11:15 •  Информатика

Дан массив в(n*m) ).элементы массива ввести случайным образом.найти сумму элементов в каждой строке, больших среднего арифметического элементов данной строки паскаль

👇
Ответ:
dontsovaelizav
dontsovaelizav
21.04.2021
// PascalABC.NET 3.0, сборка 1128
begin
  var m:=ReadInteger('Число строк:');
  var n:=ReadInteger('Число колонок');
  var a:=MatrixRandom(m,n,-10,20);
  Writeln('Сгенерированный массив');
  for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do Write(a[i,j]:4);
    Writeln
    end;
  Writeln('Найденные суммы');
  for var i:=0 to m-1 do begin
    var avg:=0.0;
    for var j:=0 to n-1 do avg+=a[i,j];
    avg/=n;
    var s:=0;
    for var j:=0 to n-1 do
      if a[i,j]>avg then s+=a[i,j];
    Write(s,' ')
    end;
  Writeln
end.

Тестовое решение:
Число строк: 5
Число колонок 7
Сгенерированный массив
  19  14  -6  -8   2  -3  11
   2  -8  -9  18   6  -6  -9
  -5  -1   2  -6  -6  15  -4
  13  19   2   6 -10   5  15
  13   1   0  -2  -8  20  18
Найденные суммы
44 26 17 47 51
4,4(71 оценок)
Открыть все ответы
Ответ:
Artemkizaru
Artemkizaru
21.04.2021
Открытая архитектура- это архитектура компьютера, любого перефирийного устройства(устройства ввода-вывода) или ПО (программного обеспечения), на которые опубликованы спецификации(документ, в котором указаны все узлы и детали изделия), то есть любой производитель может разработать дополнительные устройства к системам с открытой архитектурой
Принцип открытой архитектуры заключается в том, что производитель не скрывает узлы и детали, из которых состоит компьютер. Они могут быть легко заменены другими.
Большинство современных компьютеров- с открытой архитектурой. Обратный пример- с закрытой архитектурой это продукция Apple (айфон,айпад, макбук), к которым не подходят детали других производителей
По просту говоря, к любому компьютеру можно подключить любой принтер, мышку или другой гаджет не важно какого производителя
4,4(66 оценок)
Ответ:
aminamamedova3
aminamamedova3
21.04.2021
//Pascal ABC.NET 3.2 сборка 1318

Var
  f:text;
  n:integer;
  s:string;

   
procedure VoTeRaz(f:text;n:integer;s:string);
  begin
    writeln('Было:');
assign(f,'Input.txt');
reset(f);
while not(Eof(f)) do
  begin
    read(f,n);
    write(n,' ');
    if n>7 then n:=n*(n div 7);
    s:=s+inttostr(n)+' ';
  end;
delete(s,length(s),1);
close(f);
assign(f,'Input.txt');
rewrite(f);
write(f,s);
close(f);
writeln;
writeln('Стало:');
write(s);
writeln;
end;

function VoTeDva(f:text;n:integer;s:string):integer;
  begin
    writeln('Было:');
assign(f,'Input.txt');
reset(f);
while not(Eof(f)) do
  begin
    read(f,n);
    write(n,' ');
    if n>7 then n:=n*(n div 7);
    s:=s+inttostr(n)+' ';
  end;
delete(s,length(s),1);
close(f);
assign(f,'Input.txt');
rewrite(f);
write(f,s);
close(f);
writeln;
writeln('Стало:');
write(s);
writeln;
VoTeDva:=0;
end;
   
begin
VoTeRaz(f,n,s);
VoTeDva(f,n,s);
end.

Начальное содержимое Input.txt:
81 5 6
Пример работы программы:
Было:
81 5 6 
Стало:
891 5 6
Было:
891 5 6 
Стало:
113157 5 6
4,5(22 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ