Случайным образом заполнить одномерный массив целых чисел А [i], где i = 1, 2, ., n. Вывести этот массив - Free Pascal
Формулировка задачи:
1. Значение элементов в обратном направлении
2. Значение элементов с четными индексами
3. Значение элементов с нечетными индексами
4. Значение парных элементов массива
5. Значение нечетных элементов массива
6. Значения элементов массива> 50
7. Значение элементов массива <50
Код к задаче: «Случайным образом заполнить одномерный массив целых чисел А [i], где i = 1, 2, ., n. Вывести этот массив - Free Pascal»
const n=10;
var
a:array[1..n] of integer;
i:integer;
begin
randomize;
write('A:');
for i:=1 to n do begin
a[i]:=random(101);
write(a[i]:4);
end;
writeln;
writeln('1.'); for i:=n downto 1 do write(a[i]:4);writeln;
writeln('2.'); for i:=1 to n do if not odd(i) then write(a[i]:4);writeln;
writeln('3.'); for i:=1 to n do if odd(i) then write(a[i]:4);writeln;
writeln('4.'); for i:=1 to n do if not odd(a[i]) then write(a[i]:4);writeln;
writeln('5.'); for i:=1 to n do if odd(a[i]) then write(a[i]:4);writeln;
writeln('6.'); for i:=1 to n do if a[i]>50 then write(a[i]:4);writeln;
writeln('7.'); for i:=1 to n do if a[i]<50 then write(a[i]:4);writeln;
end.
12 голосов, оценка 3.833 из 5
СОХРАНИТЬ ССЫЛКУ