дана последовательность целых чисел а1,а2,..,а20. верно элементы последовательности равны собой.нужно написать программу на паскале с циклом
Answers & Comments
HRAshton
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 чисел ввести, а потом она проверяет, верно ли, что они все равны)
Answers & Comments
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 чисел ввести, а потом она проверяет, верно ли, что они все равны)