Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
kuzyaevkuzyaev2
04.11.2021 18:26 •
Информатика
Результаты переписи населения хранятся в памяти эвм. элемент массива - год рождения жителя. подсчитайте общее число жителей родившихся 1958г.
Показать ответ
Ответ:
lana770
01.10.2020 11:34
Program perpepis;
uses crt;
var
god:array [1..100] of integer;
i,c:integer;
begin
randomize;
for i:=1 to 100 do god[i]:=random(70)+1900;
for i:=1 to 100 do if god[i]=1958 then c:=c+1;
writeln('Kolichestvo gyteley ',c);
end.
0,0
(0 оценок)
Ответ:
лолодоидтд
01.10.2020 11:34
Приведу часть программы.
n-любое число
a: array[1..n] of integer;
K:=0;
for i:=1 to n do
if a[i]=1958 then inc(k); {или K:=k+1}
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
raksana6
20.01.2021 16:36
Разработайте приложение, после запуска которого на экране получают окно !!(программа Пайтон)...
termos68
04.03.2020 03:31
Напиши программу, которая спрашивает улицу, номер дома и номер квартиры пользователя, а затем выводит его адрес по шаблону «Я живу на улице (улица) дом (дом) квартира (квартира)»....
Егор4002
14.03.2020 01:46
Составить программу для нахождения периметра и площади ! !...
Style55
21.07.2021 00:19
Изображение было оцифровано и сохранено в виде растрового файла. получившейся файл был передан в город а по каналу связи за 30 секунд. затем то же изображение было оцифровано повторно...
mendozzzakortd
05.07.2021 01:47
Найти объем информации, содержащейся в тексте из 3000 символов, и написанном с использованием алфавита, содержащего 87 символа....
hiopjkokop
10.05.2021 21:46
Для чего вводится ограничения времени пребывания за компьютером ...
Dima228590
01.01.2021 14:50
Написать программу на нахождение суммы отрицательных четных чисел на языке pascal abc...
Самолеееет555
01.01.2023 08:51
Вы движением робота и можете давать направление его движения с информационных сообщений : север , северо-восток , восток , юго-запад , запад , юго-восток , северо-запад . какое количество...
20000304
01.01.2023 08:51
Четыре ученика-актера готовятся к выступлению. три других ученика выступают в качестве гримеров. каждый ученик-актер должен быть загримирован и причесан, делать это можно в любом порядке,...
МишкаКочолапый
26.04.2022 02:13
Как определить информационный объём имени? например: иванов иван иванович. (считать, что в алфавите 64 символа)....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var
god:array [1..100] of integer;
i,c:integer;
begin
randomize;
for i:=1 to 100 do god[i]:=random(70)+1900;
for i:=1 to 100 do if god[i]=1958 then c:=c+1;
writeln('Kolichestvo gyteley ',c);
end.
n-любое число
a: array[1..n] of integer;
K:=0;
for i:=1 to n do
if a[i]=1958 then inc(k); {или K:=k+1}
writeln(k);
end.