Информатика. pascal abc. составьте программу ввода элементов массива d [1..6] с клавиатуры и вывода на экран элементов с положительными значениями.
uhudongoair
3
16.08.2019 20:20
0
Другие вопросы по теме Информатика
anadtadiamoroso
01.03.2021 17:34
dashutadashuta2007
01.03.2021 17:35
polonnikovdanil
03.10.2019 10:01
DI228MA
03.10.2019 10:01
radzihovskaa
21.05.2020 10:55
Maks2801
21.09.2019 10:50
StarBoy12ewq
21.09.2019 10:50
mixa342
21.09.2019 10:50
kad132
21.09.2019 10:50
Популярные вопросы
- найдите значение выражения ...
1 - До скласти 5 речень похідних складанням 2 прийменників...
3 - Поширення рослинності і тваринного світу на планеті із зміною...
1 - 1. Не помню, когда я видел столько звезд. 2. Тут были крупные,...
3 - Будь Ласка. В електричному колі R1=40 R2=30 R3=60. Знайти опір...
2 - Как меняется скорость шарика в зависимости от точки начала движения?...
3 - 1. Выполни умножение: (0,5+2)⋅(0,252−0,52+4) 2. Bычисли: 74,6²−74,5²...
3 - Власне висловлення , на тему: Поразки в бізнесі мають загартовувати...
2 - A) Fe- Fe(OH)3- Fe2O3- Fe б) Fe- Fe(OH)2- Fe(OH)3- Fe2O3- FeCl3-...
1 - 1. Укажите число,условие 7,8 x 7,9А) 7,8Б) 7,89D) 7,98C)7,9E)...
3
d: array [1..6] of integer;
i:integer;
begin
for i:=1 to 6 do
read(d[i]);
for i:=1 to 6 do begin
if d[i]>0 then
write(d[i],' ');
end;
end.