Предметы
- Математика
- Русский язык
- Алгебра
- Английский язык
- Литература
- Физика
- Химия
- История
- Геометрия
- Биология
- География
- Другие предметы
- Қазақ тiлi
- Информатика
- Українська мова
- Обществознание
- Окружающий мир
- Українська література
- Музыка
- Немецкий язык
- Экономика
- Право
- Беларуская мова
- ОБЖ
- Французский язык
- Психология
- Технология
- Физкультура и спорт
- МХК
- Астрономия
- Кыргыз тили
- Оʻzbek tili
- Черчение
- Уход за собой
Program mas_1;
var n, i: integer;
a: array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(100);
for i:=1 to 10 do write (a[i],' ');
i:=0;
repeat
i:=i+1;
until (a[i]=50) or (i=10);
if a[i]=50 then write('Элемент ',i) else write('Нет')
end.
Напишите перевод пожалуйста