Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Сложность вопроса: 1 (из 10)
<question>247
Определить, что выполняет данная программа:
program gh;
var a:array [1..10] of real;
i,p:integer; m:real;
begin
for i:=1 to 10 do
read (a[i]);
m:=a[1];
for i:=1 to 10 do
if a[i]>m then begin m:=a[i]; p:=i; end;
for i:=p+1 to 10 do a[i]:=0,5;
for i:=1 to 10 do
writeln (a[i]); end.
находит максимальный элемент и элементы, стоящие за максимальным заменяет на 0.5
находит максимальный элемент и заменяет его на 0,5
все элементы массива заменяет на 0,5
находит индекс максимального элемента.
Дата публикования: 2015-01-10; Прочитано: 138 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!