Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 200317
23.02.2021, 12:22
0.00 руб.
0 3 2
Компьютеры Программирование
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет
посредством цикла WHILE...DO, а вывод – REPEAT...UNTIL (в скобках указана размерность масси-
ва) заменить все нулевые элементы массива на единицу (11); Pascal

Обсуждение

давно
puporev
Профессор
401888
1232
23.02.2021, 13:29
общий
это ответ
Здравствуйте, Barsik22!
Код:
const n=11;
var a:array[1..n] of integer;
    i:integer;
begin
i:=1;
while i<=n do
 begin
  write('a[',i,']=');
  readln(a[i]);
  i:=i+1;
 end;
writeln('Введенный массив');
i:=1;
repeat
write(a[i],' ');
i:=i+1;
until i>n;
end.
5
давно
Barsik22
Посетитель
404364
30
23.02.2021, 13:32
общий
Спасибо большое!
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
23.02.2021, 13:39
общий
это ответ
Здравствуйте, Barsik22!

Добавлено
Цитата: Barsik22
заменить все нулевые элементы массива на единицу


[code lang=pascal]const
n=11;
var
a:array[1..n] of integer;
i:integer;
begin
i:=1;
while i<=n do
begin
write('Enter A[',i,']:=');
readln(a[i]);
inc(i);
end;
for i:=1 to n do
if a[i]=0 then a[i]:=1;
i:=1;
repeat
write(a[i]:6);
inc(i)
until i>n;
end.[/code]

Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа