Дан массив А(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
СОХРАНИТЬ ССЫЛКУ