Помогите написать программу на языке паскаль
Помогите написать программу на языке паскаль
Задать свой вопрос1 ответ
Борис Александриков
Var i, n, k:integer ;
A:array[1..100]of Integer ;
Begin
Write('n=') ;read(n) ;
For i:=1 to N do begin
A[i]:=random(100);
Write(' ', A[i]) ;end;
K:=0;writeln;
For i:=1 to N do begin
If A[i]lt;50 then a[i]:=50;
K:=k+1;end;
If k=0 then write('таких элементов нет')
Else For i:=1 to N do write(' ', A[i]) ;
End.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов