Помогите пожалуйста, очень срочно надо!

0 голосов
15 просмотров

Помогите пожалуйста, очень срочно надо!


image

Информатика (12 баллов) | 15 просмотров
Дан 1 ответ
0 голосов

const n=10;

var i,s,max,min:integer;

a:array [1..n] of integer;

begin

for i:=1 to n do

begin

a[i]:=random(90)+10;

write (a[i]:3)

end;

writeln;

max:=a[1];

min:=a[1];

for i:=2 to n do

begin

if a[i]>max then max:=a[i];

if a[i]

end;

for i:=1 to n do

begin

if i mod 2 = 0 then a[i]:=max else a[i]:=min;

write (a[i]:3)

end

end.

(1.7k баллов)
0

Спасибо, но это точно 100% правильно?)

0

Я надеюсь, что да... )))

0

я тоже надеюсь, но все равно спасибо