Ответы
Ответ дал:
0
var a:array[1..15]of integer;
i,max:integer;
Begin
for i:= 1 to 15 do
a[i]:=random(100);
max:= a[1]+a[2];
for i:= 1 to 14 do
if max < a[i]+a[i+1] then
max := a[i]+a[i+1];
writeln(max);
End.
i,max:integer;
Begin
for i:= 1 to 15 do
a[i]:=random(100);
max:= a[1]+a[2];
for i:= 1 to 14 do
if max < a[i]+a[i+1] then
max := a[i]+a[i+1];
writeln(max);
End.
Ответ дал:
0
Если помогла, то выбери мое решение лучшим пожалуйста) хочется быть светилом)
Ответ дал:
0
как выбрать лучшим? =))
Ответ дал:
0
гдето ж както оно должно делаться, точно не знаю как( давно заданий не задавала(
Ответ дал:
0
я помню, что когда несколько человек решали мое... у меня появлялся выбор, кому лучший поставить
Ответ дал:
0
=((( цаощыоаозылазфлщзалщзылаоыошзаошыоашкошаошщ
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад