График изменения численности в России за последние 50 лет является... 1)Числовой информацией
2)Звуковой информацией
3)Графической информацией
4)Текстовой информацией
(возможно несколько вариантов)

Question

Информатика: График изменения численности в России за последние 50 лет является... 1)Числовой информацией 2)Звуковой информацией 3)Графической информацией 4)Текстовой информацией (возможно несколько вариантов) ​

karpovaarina · Accepted Answer

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,Max:integer;
Begin
Randomize;
Write('Исходный массив:');
Max:=1;
For i:= 1 to N do
    Begin
    A[i]:=random(N div 2);
    Write(' ',A[i]);
    if A[i] > A[Max] then Max:=i;
    End;
WriteLn;
WriteLn('Максимальное значение: ',A[Max]);
Write('Номера максимальных элементов:');
For i:= 1 to N do
    if A[i] = A[Max] then Write(' ',i)
End.

Пример работы программы:

Исходный массив: 4 5 3 0 0 4 0 4 2 3 3 5 2
Максимальное значение: 5
Номера максимальных элементов: 2 12

MOGZ ответил