Паскаль.Одномерный массив.

[D.bohlen]

Напишите пожалуйста программу, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла WHILE...DO, а вывод – REPEAT...UNTIL (в скобках указана размерность масси-
ва):
уменьшить каждый ненулевой элемент массива на 2 (11);
+блок-схема
помогите плизз)

[Stranger333]

если я правильно понял условие то вот:

var a:array[1..11] of integer;
i:integer;
begin
  i:=1;
  writeln('Input:');
  while i<=11 do
  begin
    write('a[',i,']=');
    readln(a[i]);
    i:=i+1;
  end;
  i:=1;
  writeln;
  writeln('Output:');
  repeat
    if a[i]=0 then a[i]:=-2;
    writeln('a[',i,']=',a[i]);
    i:=i+1;
  until i>11;
  readln;
end.

[ROMA2PVT]

если я правильно понял условие то вот:

Код:

var a:array[1..11] of integer;
i:integer;
begin
i:=1;
writeln('Input:');
while i<=11 do
begin
write('a[',i,']=');
readln(a[i]);
i:=i+1;
end;
i:=1;
writeln;
writeln('Output:');
repeat
if a[i]=0 then a[i]:=-2;
writeln('a[',i,']=',a[i]);
i:=i+1;
until i>11;
readln;
end.

уменьшить каждый ненулевой элемент массива на 2

[Stranger333]

а уменьшить и заменить не тоже самое будет в даном случаи?

[ROMA2PVT]

ну уменьшить на это вроди не заменить.А вычесть.

[ROMA2PVT]

есть разница 6-2=4 или 6=2?И сказано ненулевых.

[Stranger333]

извените не правильно прочел условие.
вот надо заменить код на такой:

if a[i]<>0 then a[i]:=a[i]-2;

[ROMA2PVT]

if a[i]<>0 then a[i]:=a[i]-2;

В условии так и написано уменьшить каждый ненулевой элемент.Нули нетрогаем.

[D.bohlen]

Спасибо вам большое)
правда,спасибо

[D.bohlen]

Эх,блок-схемку бы еще....
я примерно представляю, но не уверен