Заполнить массив из 20 элементов вещественными случайными целыми числами в диапазоне от -10 до +10 и разделить его на два массива

@medgard · Регистрация: 14.03.2014

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

Заполнить массив из 20 элементов вещественными случайными целыми числами в диапазоне от -10 до +10 и разделить его на два массива. В одном массиве должны быть положительные элементы исходного массива, включая ноль, в другом – отрицательные. Выдать вновь полученные массивы в одну строчку.
Заранее Огромное Спасибо!

@FedorBoom · 15.03.2014, 00:52

Pascal

var a,pl,mn: array [1..20] of integer;
    i, j, k: integer;
 begin
  randomize;
  for i:= 1 to 20 do a[i]:= random(20)-10;
  write('Íà÷àëüíûé ìàññèâ --> ');
 
  for i:= 1 to 20 do write(a[i],' ');
  writeln;
 
  j:=1;
  k:=1;
  for i:= 1 to 20 do
  if a[i]>=0 then begin
    pl[j]:=a[i];
    inc(j);
   end
 
  else begin
    mn[k]:=a[i];
    inc(k);
   end;
 
  write('Màññèâ íåîòðèöàòåëüíûõ ýëåìåíòîâ --> ');
  for i:= 1 to j-1 do write(pl[i],' ');
  writeln;
 
  write('Màññèâ îòðèöàòåëüíûõ ýëåìåíòîâ --> ');
  for i:= 1 to k-1 do write(mn[i],' ');
  writeln;
 
  readln;
 end.

@medgard 0 / 0 / 0 Регистрация: 14.03.2014 Сообщений: 11
		1
	Заполнить массив из 20 элементов вещественными случайными целыми числами в диапазоне от -10 до +10 и разделить его на два массива 14.03.2014, 20:22. Показов 8426. Ответов 1 Метки нет (Все метки) Заполнить массив из 20 элементов вещественными случайными целыми числами в диапазоне от -10 до +10 и разделить его на два массива. В одном массиве должны быть положительные элементы исходного массива, включая ноль, в другом – отрицательные. Выдать вновь полученные массивы в одну строчку. Заранее Огромное Спасибо! 0

	15.03.2014, 00:52

Опции темы

Заполнить массив из 20 элементов вещественными случайными целыми числами в диапазоне от -10 до +10 и разделить его на два массива

Решение