Дан массив А(15). Положительные элементы заменить единицами, отрицательные-нулями, нули-девятками. - Turbo Pascal
Формулировка задачи:
Даны 3 задачи, к ним нужно составить блок схему и написать программу на паскале.
3.Дан массив А(15). Положительные элементы заменить единицами, отрицательные-нулями, нули-девятками.
Помогите пожалуйста! Нужен код на паскале(желательно с описанием переменных) и блок-схему.
Код к задаче: «Дан массив А(15). Положительные элементы заменить единицами, отрицательные-нулями, нули-девятками. - Turbo Pascal»
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.
13 голосов, оценка 4.231 из 5
СОХРАНИТЬ ССЫЛКУ