Вопрос по информатике:
Одномерный массив. Pascal.
Дан целочисленный одномерный массив, сформированный случайными
числами от 0 до 50. Подсчитайте, сколько раз встречается в этой таблице число, заданное
пользователем.
- 14.06.2018 00:03
- Информатика
- remove_red_eye 14190
- thumb_up 20
Ответы и объяснения 1
Program gt;
vat a:array[1..60]of integer;
n,i,k,b:integer;
begin
randomize;
writeln('Задайте размер массива');
read(n);
k:=0;
writeln('Задайте число');
read(b);
for i:=1 to n do
begin
a[i]=random(50);
if(a[i] = b)then k:=k+1;
end;
writeln(k);
end.
- 14.06.2018 14:52
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.