Задан массив целых чисел изт10 элементов. Положительные элементы заменить...

0 голосов
45 просмотров

Задан массив целых чисел изт10 элементов. Положительные элементы заменить единицами,отрицательные нулями


Информатика (31 баллов) | 45 просмотров
Дано ответов: 2
0 голосов
Правильный ответ

// Программа и скриншот ее работы в приложениях.

const
    T_max=10;

var  
    i:byte;
    T:array[1..T_max]of integer;
   
begin
  writeln('Заполнение массива из ', T_max ,' элементов случайными данными');
 
  //начальные значения min и max
  for i:=1 to T_max do begin
    T[i]:=random(-79,79);// диапазон случайных чисел
    write(T[i]:6);
   
    if (T[i]<0) then <br>      T[i]:=0
    else if (T[i]>0) then
      T[i]:=1;
  end;

  writeln(); 
  writeln();
  writeln('Положительные элементы заменить единицами,отрицательные нулями ');
  writeln('Результат'); 
  for i:=1 to T_max do
    write(T[i]:6);
 
 end.

(10.8k баллов)
0 голосов

ПЕР
  массив: РЯД 10 ИЗ ЦЕЛ;
  сч: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] > 0 ТО массив[сч] := 1
    АЕСЛИ массив[сч] < 0 ТО массив[сч] := 0
    КОН

0

А норм написать можешь?

0

Это как?

0

Чтобы скопировать и сразу в Паскаль

0

Так для этого надо было писать на Паскале.