Заменить каждый элемент массива его знаком - Pascal ABC

Формулировка задачи:

Дан массив из n целых чисел.Заменить каждый элемент массива его знаком(положительный элемент-знаком "+",отрицательный элемент-знаком "-",нули-знаком "=").Для замены числа символом использовать соответствующую подпрограмму.

Код к задаче: «Заменить каждый элемент массива его знаком - Pascal ABC»

textual
var a:array[1..50] of integer;
    b:array[1..50] of char;
    n,i:byte;
begin
randomize;
repeat
write('Размер масссивов от 1 до 50 n=');
readln(n);
until n in [1..50];
writeln('Массив чисел');
for i:=1 to n do
 begin
  a[i]:=-10+random(21);
  write(a[i]:4);
 end;
writeln;
writeln('Массив символов');
for i:=1 to n do
 begin
  if a[i]>0 then b[i]:='+';
  if a[i]<0 then b[i]:='-';
  if a[i]=0 then b[i]:='=';
  write(b[i]:4);
 end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 4.222 из 5


СДЕЛАЙТЕ РЕПОСТ