Const N = 33; Var A:array[1..N] of integer; i:integer; Begin Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(100000)-50000; Write(' ',A[i]); End; WriteLn; WriteLn; Write('Трёхзначные числа:'); For i:= 1 to N do if (99<Abs(A[i]))and(Abs(A[i])<1000) then Write(' ',A[i]); WriteLn; Write('Номера четырёхзначных чисел:'); For i:= 1 to N do if (999<Abs(A[i]))and(Abs(A[i])<10000) then Write(' ',i) End.
Первый вариант программы: Const N = 5; Var A:array[1..N] of integer; i:integer; S:real; Begin Randomize; S:=0; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(21)-10; Write(' ',A[i]); S:=S+A[i]; End; WriteLn; WriteLn('Сумма его элементов: ',S); End.
Второй вариант программы: Const N = 13; Var A:array[1..N] of integer; i,S,B:integer; Begin Randomize; S:=0; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(21)-10; Write(' ',A[i]); End; WriteLn; Write('Введите номера пяти элементов: '); For i:= 1 to 5 do Begin Read(B); S:=S+A[B]; End; WriteLn('Их сумма равна: ',S); End.
Пример: Исходный массив: 0 -9 6 4 -7 -1 9 -7 -2 -4 -6 4 -1 Введите номера пяти элементов: 3 4 7 12 1 Их сумма равна: 23
