Дана последовательность из n целых чисел. Определить, есть ли в ней число, равное первому из этой последовательности.

+3
Ответы (1)
  1. 2 июля, 01:12
    0
    program zz1;

    const n = 13; / / задаем количество элементов в последовательности

    R:array [1 ... n] of integer = (26, - 53, 0, - 67, 12, - 34, 0, 90, 14, - 78, 26, - 45, 66); / / задаем последовательность чисел

    var i, m:integer; / / задаем переменные целого типа

    begin

    for i:=2 to n do / / организуем цикл, в котором переберем все числа в последовательности

    if R[i] = R[1] then m:=1; / / проверяем, если число последовательности равено первому, то запоминаем это событие

    if m = 1 then writeln (' в последовательности есть число равное первому числу ')

    else writeln (' в последовательности нет числа равного первому числу '); / / выводим ответ

    end.
Знаешь ответ на этот вопрос?
Новые вопросы по информатике
Дано натуральное трехзначное число N. Составьте программу, выводящую четырехзначное число, полученное приписыванием цифры разряда единиц исходного числа к нему же слева (в разряд тысяч). Используя текстовые файлы input, output.
Ответы (1)
Два текста содержат одинаковое кол-во символов. первый текст составлен в алфавите мощностью 32 символа, второй мощностью 64 символа. во сколько раз различаются инф-ые объемы этих текстов
Ответы (1)
Объясните что такое в информатике: интерфейс, надсистема, подсистема. Приведите примеры и объясните почему.
Ответы (1)
Реши задачу. (Ответ округли до целых). Книга содержит 126 страниц. На каждой странице 38 строк. В каждой строке 57 символов (включая пробелы). Найти информационный объём текста, считая, что каждый символ кодируется одним байтом. Ответ: Кб
Ответы (1)
Найти сумму четных и произведение не четных чисел в промежутке от 1 до n
Ответы (1)