Дана последовательность целых чисел а1,а2,..,а20. верно элементы последовательности равны...

0 голосов
39 просмотров

Дана последовательность целых чисел а1,а2,..,а20. верно элементы последовательности равны собой.нужно написать программу на паскале с циклом


Информатика (104 баллов) | 39 просмотров
Дан 1 ответ
0 голосов

Var a: array [1..20] of integer;
    i: integer;
begin
     for i := 1 to 20 do
         readln(a[i]);
     for i := 1 to 20 do
         if (a[i] <> a[1]) then
         begin
              writeln('Неверно');
              exit;
         end;
     writeln('Верно');
end.

Надеюсь, я правильно понял задачу, а то иногда не разобрать... Тут вначале надо 20 чисел ввести, а потом она проверяет, верно ли, что они все равны)

(16.9k баллов)
0

я тоже так думаю,сейчас проверим,спасибо

0

а можно как нибудь без массива???