Федорович Шахова241
?>

Хееелп! Запиши программу на языке Паскаль.Вычисли сумму S =k+1-, если значение п вводит пользователь.-k2 +1Если п = 11, то вывод на экран (ответ округли до сотых)​

Информатика

Ответы

TatiyanaBe20135263
Const n=4; m=5;
var a:array [1..n,1..m] of integer;
 i,j,min,imin,jmin:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do begin
 a[i,j]:=random(21)-10;
 write(a[i,j]:6);
 end;
writeln;
end;
min:=a[1,1]; imin:=1;jmin:=1;
for i:=1 to n do
 for j:=1 to m do
  if a[i,j]<min then
   begin min:=a[i,j]; imin:=i; jmin:=j; end;
writeln('min=a[',imin,',',jmin,']=',min);
end.

Пример:
Исходный массив:
     5     8     2    -5    -4
     1   -10     9     1    -4
     8     2    -6    -4    -4
     8     7     3     2     2
min=a[2,2]=-10
kampina1
Если не ошибаюсь ответ г Автоматическое форматирование — это средство Word для анализа частей документа и распознавания отдельных элементов, таких как основной текст, заголовки, маркированные списки и др. Word может применить соответствующие стили к различным элементам текста для создания отформатированного документа. (О стилях вы узнали в уроках 12 и 13). Вы можете принять или отвергнуть автоматически предложенный формат, частично или в целом, и позже внести необходимые изменения в документ. Кроме применения стилей, автоматическое форматирование удаляет лишние пробелы между абзацами, автоматически форматирует адреса Internet, ллектронной почты и сетевые адреса как гиперссылки, выделяет полужирным начертанием или подчеркиванием текст, ограниченный звездочками (*) или символами подчеркивания (_), заменяет два дефиса (--) одним тирс II Т. Д.

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

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

Хееелп! Запиши программу на языке Паскаль.Вычисли сумму S =k+1-, если значение п вводит пользователь.-k2 +1Если п = 11, то вывод на экран (ответ округли до сотых)​
Ваше имя (никнейм)*
Email*
Комментарий*

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

Natalya1895
ganzashop
sandovo590
skvorec3424
ПетровичЖивотовская1245
Yevgenevna
Mbkozlov6
annakuznetsova841
Ofelya1308
RozaAsadullina
aci2003
anovikovsr
antoska391
imosal
Amulenkov