tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
10 вводится 10 целых чисел.
10 вводится 10 целых чисел. найти первый положительный элемент и вывести его на экран. если положительных элементов нет, то ничего не выводить.
Rinyasan
3 19.09.2019 04:10
0
Ответы
ггггггггггггжз
08.10.2020 01:27
Const n=10;
Var a:array[1..n] of integer; i:integer;
Begin
i:=1;
While i<=10 do begin
Readln(a[i])
If a[i] >0 then begin
writeln(a[i]) ;
i:=i+n;
end;
i:=i+1;
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ак147
03.10.2019 20:40
Мише надо построить забор вокруг своего деревенского домика, но вот самому это делать ему лень. а поскольку миша увлекается робототехникой, то он спроектировал специального...
mirann2hsjb
03.10.2019 20:40
Укажите через запятую в порядке возрастания все числа, не превосходящие 35, запись которых в двоичной системе счисления оканчивается на 110. числа в ответе указывайте в десятичной...
Анна20041288
03.10.2019 20:40
Написать программу с циклом, которая 27 раз к переменной d прибавляет 273. pascal...
dachaerofeeva
27.05.2019 12:50
Какие знаки используются в записи звуков речи? какие знаки используются при оформлении календаря погоды? какие знаки используются при движением транспорта?...
chifire
27.05.2019 12:50
Умоляю, 10 минут осталось и сдавать надо незнайка,решивший написать стихотворение, в редакторе блокнот нажимал клавиши как показано ниже. в результате первые две буквы текста...
Vee340
15.11.2020 20:21
9.3.2. Производится звукозапись музыкального фрагмента в формате квадро (четырех- канальная запись) с частотой дискретизацин 32 кГц и 24-битным разрешением. Результаты записываются...
Huliganka3009
15.11.2020 20:21
Составьте вопросы на тему информатика...
sashasa02
13.12.2019 10:47
Найдите информационный объем (в битах и байтах) растрового изображение размером 20 на 20 пикселей и палитрой из 65 536 цветов...
Samina7161
13.12.2019 10:44
Найти информационный вес сообщения в кбайт, если в сообщении х-32 страницы, y-16 строк, z- 160 символов в строке. алфавит состоит из n- 128 символов.найти количество символов...
aliolga
13.12.2019 10:37
№1. деленне нацело. (100 ) вам два целых числа - n и. ваша - заменить в числе последние 2 цифры таким образом, чтобы результат делился на к. при этом всех таких чисел нужно...
Популярные вопросы
Составте 10 придложений по теме я и физика...
3
Чи загрожує людству розвиток науки і техніки,бездумне споживання благ цивілізації?...
2
Усі дієслова вжито у формі теперішнього часу в рядку А)прибіг,перевірила,допомагатимуть,плете,відплив...
3
очень надо 1. Choose the correct answer 1. They … swimming three times...
2
Суфікс -ищ- має однакове значення в усіх словах, ОКРІМ А) Морозище Б) Вітрище...
3
дайте ответ не с готовых домашних заданий, от себя или от интернет источников(кроме...
2
Хід звукової хвилі що взаємодіє з поверхнею на якій розміщено піраміди...
3
Реши уравнения 5y-4/y+4=y+9/y+4...
3
Какие из перечисленных событий относятся к XIII в.? Найдите в при¬ведённом...
2
Высота проведенная основную равнобедренного треугольника,равна8,2см а бокавая...
2
Var a:array[1..n] of integer; i:integer;
Begin
i:=1;
While i<=10 do begin
Readln(a[i])
If a[i] >0 then begin
writeln(a[i]) ;
i:=i+n;
end;
i:=i+1;
end;
end.