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

Впрограмме описан одномерный целочисленный массив с индексами от 0 до 10. в ниже фрагменте программы массив сначала заполняется, а потом изменяется: for i: =0 to 10 do a[i]: = i; for i: =1 to 11 do a[i-1]: = a[11-i]; чему будут равны элементы этого массива?

👇
Ответ:
arsenenkodiana6
arsenenkodiana6
26.03.2022
Var
    a: array[0..10] of integer;
    i, n, k: integer;

begin
    for i := 0 to 10 do
        A[i] := i;
    PrintLn(a);
    for i := 1 to 11 do
    begin
        A[i - 1] := A[11 - i];
        PrintLn(a);
    end;
end.

Трасировка второго цикла А
[10,1,2,3,4,5,6,7,8,9,10]
[10,9,2,3,4,5,6,7,8,9,10]
[10,9,8,3,4,5,6,7,8,9,10]
[10,9,8,7,4,5,6,7,8,9,10]
[10,9,8,7,6,5,6,7,8,9,10]
[10,9,8,7,6,5,6,7,8,9,10]
[10,9,8,7,6,5,6,7,8,9,10]
[10,9,8,7,6,5,6,7,8,9,10]
[10,9,8,7,6,5,6,7,8,9,10]
[10,9,8,7,6,5,6,7,8,9,10]
[10,9,8,7,6,5,6,7,8,9,10]
4,7(8 оценок)
Открыть все ответы
Ответ:
konkina
konkina
26.03.2022
Const n=4; m=5;
var a:array[1..n,1..m] of integer;
i,j,max,min:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
   a[i,j]:=random(201)-100;
   write(a[i,j]:4);
  end;
  writeln;
 end;
max:=a[1,1];
min:=a[1,1];
for i:=1 to n do
 for j:=1 to m do
  begin
  if a[i,j]>max then max:=a[i,j];
  if a[i,j]<min then min:=a[i,j];
  end;
writeln('max = ',max,' min = ',min);
writeln('Среднее арифметическое = ',(max+min)/2);
end.

Пример:
Исходный массив:
   5  -9 -12  -2  88
  -9 -93 -60   8  30
  72  50 -56 -39 -29
  13 -89 -28 -22  29
max = 88 min = -93
Среднее арифметическое = -2.5
4,6(30 оценок)
Ответ:
foma89
foma89
26.03.2022
Var a: array of integer;
n, sum, max: integer;
 
begin
   sum:=0;
   write('Введите натуральное число n: ');
   readln(n);
   a := new integer[n];
 
  write('Введите действительные числа: ');
  for var i:=0 to a.Length-1 do
    read(a[i] );
   
  write('Сумма равна: ');
  for var i:=0 to a.Length-1 do
    sum:=sum+a[i];
  writeln(sum);  
  
  write('Максимальный элемент равен: ');
  max := a[0];
  for var i:=0 to a.Length-1 do
    if a[i]>max then 
    begin
      max := a[i];
    end;
  writeln(max); 
  
  write('S = (А1+ А2+ …,+ Аn) + max (А1, А2, …, Аn) = ');
  sum:=sum+max;
  write(sum); 
 
end.
4,4(18 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ