Модератор
1004
Советник
688
Академик
419
Специалист
401
Профессионал
186
Мастер-Эксперт
185
Профессор
163
8.3.1
01.03.2021
JS: 2.4.1
CSS: 4.4.0
jQuery: 3.5.1
Создание программ на языках Pascal, Delphi и Lazarus.
Администратор раздела: Зенченко Константин Николаевич (Старший модератор)
|
Перейти к консультации №: |
|
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет
посредством цикла WHILE...DO, а вывод – REPEAT...UNTIL (в скобках указана размерность масси-
ва) заменить все нулевые элементы массива на единицу (11); Pascal
Состояние: Консультация закрыта
Здравствуйте, 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.
![]() |
Консультировал: puporev (Профессор) Дата отправки: 23.02.2021, 13:29
5
нет комментария----- Дата оценки: 23.02.2021, 13:32 |
Рейтинг ответа:
+1 Сообщение модераторам Отправлять сообщения |
Здравствуйте, Barsik22!
Добавлено
заменить все нулевые элементы массива на единицу
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.
|
Консультировал: Зенченко Константин Николаевич (Старший модератор) Дата отправки: 23.02.2021, 13:39 |
Рейтинг ответа:
0 Сообщение модераторам Отправлять сообщения |
Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.