Дан одномерный массив, напечатать номера элементов, значения которых находятся в заданном диапазоне (A, Б)
Answers & Comments
pacixor
//Pascal var Arr: array [1..255] of byte; i, N, A, B: byte; begin randomize; //В PascalABC.NET можно убрать write('Введите количество элементов массива: '); readln(N); writeln; writeln(' ***Исходный массив*** '); for i := 1 to N do begin Arr[i] := random(50); write(Arr[i], ' '); end; writeln; writeln; write('Введите диапазон A и B: '); readln(A, B); writeln; writeln('Номера элементов'); for i := 1 to N do if ((Arr[i] >= A) and (Arr[i] <= B)) then write(i, ' '); writeln; readln; end.
Answers & Comments
var
Arr: array [1..255] of byte;
i, N, A, B: byte;
begin
randomize; //В PascalABC.NET можно убрать
write('Введите количество элементов массива: '); readln(N);
writeln;
writeln(' ***Исходный массив*** ');
for i := 1 to N do
begin
Arr[i] := random(50);
write(Arr[i], ' ');
end;
writeln; writeln;
write('Введите диапазон A и B: '); readln(A, B);
writeln; writeln('Номера элементов');
for i := 1 to N do
if ((Arr[i] >= A) and (Arr[i] <= B)) then
write(i, ' ');
writeln;
readln;
end.