Очень нужна помощь по информатике! В Паскале!!!
Создайте массив из 15 целочисленных элементов и определите среди них максимальное значение. Заполните случайным образом.
Ответы
Ответ дал:
0
const
n=15;
var
a:array[1..n]of integer;
i,max:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
end;max:=a[1];
for i:=2 to n do
if a[i]>max then
max:=a[i];
writeln;
writeln(max);
end.
n=15;
var
a:array[1..n]of integer;
i,max:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
end;max:=a[1];
for i:=2 to n do
if a[i]>max then
max:=a[i];
writeln;
writeln(max);
end.
Вас заинтересует
10 месяцев назад
10 месяцев назад
1 год назад
6 лет назад
7 лет назад