Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Var
i: integer;
p: integer;
mas: array[0..10] of innteger;
begin
Writeln('Введите 10 чисел:');
Readln(mas[0], mas[1], mas[2], mas[3], mas[4], mas[5], mas[6], mas[7], mas[8], mas[9]);
Здесь нужно прописать условие (можно с циклом). Если mas0=mas1=mas2 и т.д.
end;
end;
end.