Дан массив А(15). Положительные элементы заменить единицами, отрицательные-нулями, нули-девятками. - Turbo Pascal

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

Даны 3 задачи, к ним нужно составить блок схему и написать программу на паскале. 3.Дан массив А(15). Положительные элементы заменить единицами, отрицательные-нулями, нули-девятками. Помогите пожалуйста! Нужен код на паскале(желательно с описанием переменных) и блок-схему.

Код к задаче: «Дан массив А(15). Положительные элементы заменить единицами, отрицательные-нулями, нули-девятками. - Turbo Pascal»

textual
var
  a : array [1..15] of integer;
  i : integer;
begin
  writeln('вводим массив:');
  for i := 1 to 15 do
  begin
    write('[', i, '] = ');
    readln(a[i])
  end;  
  writeln('исходный массив:');
  for i := 1 to 15 do write(a[i]:4);  
  writeln;
  writeln('после замены:');
  for i := 1 to 15 do
  begin
    if a[i] > 0 then a[i] := 1 else
      if a[i] = 0 then a[i] := 9 else 
        a[i] := 0;
    write(a[i]:4)
  end;
  readln
end.
Эта работа вам не подошла?

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

13   голосов, оценка 4.231 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы