tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Программа которая вычесляет массив
Программа которая вычесляет массив b(1..8) случайными целыми числами в диапозоне от 1 до 10 и находит количество элементов с нечётными значениями
KeDres
2 12.07.2019 17:50
0
Ответы
evelgren
18.09.2020 15:58
Var a:array[1..100] of integer;
i,s:integer;
begin
for i:=1 to 8 do begin
a[i]:=random(11)-0;
write(a[i]:4);
end;
s:=0;
for i:=1 to 8 do begin
if a[i] mod 2<>0 then
s:=s+1;
end;
writeln;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Настюха20071
27.11.2020 06:51
Собери буквы в ячейках по цвету и найди термины, относящиеся к теме. длА ЗАРА И ИРАЕТ л. и ВА з си Ак о и T r с живи у дь 18 ч KEH Например: •Датчик, Слово составлено...
GORDON228band
27.11.2020 06:52
1. Какие типы диаграмм существуют? 2. Почему у одной диаграммы имеется несколько видов?3. Можно ли поменять подписи данных у готовой диаграммы? Каким образом?4. Как...
шрвлап
18.08.2019 23:00
Как добавить в текстовый документ рисунок, формулу, гиперссылку...
Ramil2425
18.08.2019 23:00
Измерить объем следующего информационного сообщения в битах , байтах, киллобайтах и мегабайта html - язык создания сценариев...
яестьумник
18.08.2019 23:00
Выбери, какую информацию нельзя закодировать с метода координат. 1. рисунок 2. число...
jlenabalkinaoyqk93
18.08.2019 23:00
Информатика. решите на языке паскаль. и блок схема даны катет а и гепотенуза вычеслить св^2=ав^2-ас^2 св=корень из ав^2-ас^2 sавс=ас*св*1\2...
asellial
20.05.2020 09:14
классПусть видеопамять компьютера имеет объём 512 Кбайт. Размер графической сетки 640 х 480. Какой объём памяти будет занимать одна страница экрана при палитре 128 цветов?...
almira666ozs336
19.09.2019 23:50
Уберите лишнее из списка магний кальций кислород фтор йод...
Arthas1212523
19.09.2019 23:50
Когда,при каких обстоятелствах земли пришли войска шведции и речи посполиты.как они действовали на занятых территориях...
ego1917
19.09.2019 23:50
Описать значение названия улицы мира...
Популярные вопросы
До ть!! чи стали щасливими герої книги Гріна Пкрпкрові вітрила...
3
Если взять 70 инфузорий то общая длина их тела будет в 20 тысяч раз...
2
Маша выписала на листе бумаги все трёхзначные чётные числа и сложила...
3
5 клас 0,16 використаних грошей на 68 грн менше тих, що залишилися....
2
А. А. ФетПервый ландыштельноотноше0 первый ландыш! Из-под снегаТы...
1
Люди, кто шарит плюсы и минусы И.П. (Индивидуального предпринимательства...
3
Найдите значение выражения y^4 + 2у^2 - 5у + 1 при у = 1/2....
3
В группе, которая отправилась в путешествие, было 10 мальчиков и...
2
Где вставлять ь знак и апостров...
3
В коробке 8 одинаковых изделий, причем 5 из них окрашены. Наудачу...
3
i,s:integer;
begin
for i:=1 to 8 do begin
a[i]:=random(11)-0;
write(a[i]:4);
end;
s:=0;
for i:=1 to 8 do begin
if a[i] mod 2<>0 then
s:=s+1;
end;
writeln;
writeln(s);
end.