М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
509788866
509788866
12.01.2022 12:57 •  Информатика

Одномерный массив. pascal. дан целочисленный одномерный массив, сформированный случайными числами от 0 до 50. подсчитайте, сколько раз встречается в этой таблице число, заданное пользователем.

👇
Ответ:
Matvey0203
Matvey0203
12.01.2022
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.
4,7(17 оценок)
Открыть все ответы
Ответ:
kjmhngbfv
kjmhngbfv
12.01.2022

основанием системы счисления называется количество разных знаков либо символов, которые используются для изображения цифр в этой системе. основанием принимают всякое натуральное число — 2, 3, 4, 16 и т.д. то есть, существует безграничное множество позиционных систем. например для десятичной
системы основание равно 10. база системы — это последовательность цифр, используемых для записи числа. ни в одной системе нет цифры, равной основанию системы. как можно догадаться, сколько есть чисел, столько же может быть и оснований систем счисления. но используются только самые удобные основания
систем счисления.

4,6(1 оценок)
Ответ:
mfaig
mfaig
12.01.2022
Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. Тут всё просто - тебе лишь нужен цикл For и расчет процентов.

FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.  
4,8(54 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ