Случайным образом заполнить одномерный массив целых чисел А [i], где i = 1, 2, ., n. Вывести этот массив

@Ольга2052 · Регистрация: 23.03.2016

Студворк — интернет-сервис помощи студентам

1. Значение элементов в обратном направлении
2. Значение элементов с четными индексами
3. Значение элементов с нечетными индексами
4. Значение парных элементов массива
5. Значение нечетных элементов массива
6. Значения элементов массива> 50
7. Значение элементов массива <50

@Joy · 27.09.2016, 05:34

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.

@Ольга2052 0 / 0 / 0 Регистрация: 23.03.2016 Сообщений: 10
		1
	Случайным образом заполнить одномерный массив целых чисел А [i], где i = 1, 2, ., n. Вывести этот массив 26.09.2016, 17:16. Показов 3708. Ответов 1 Метки нет (Все метки) 1. Значение элементов в обратном направлении 2. Значение элементов с четными индексами 3. Значение элементов с нечетными индексами 4. Значение парных элементов массива 5. Значение нечетных элементов массива 6. Значения элементов массива> 50 7. Значение элементов массива <50 0

	27.09.2016, 05:34

Опции темы

Случайным образом заполнить одномерный массив целых чисел А [i], где i = 1, 2, ., n. Вывести этот массив

Решение