Предмет: Информатика,
автор: olgaотличница
Pascal: Задан массив размерностью 100 случайных чисел из
диапазона (-85, +165). Вывести на экран все элементы
массива, а также максимальный из последних 25.
Ответы
Автор ответа:
0
var
a:array[1..100]of integer;
i,max,c:integer;
begin
for i:=1 to 100 do
begin
a[i]:=random(251)-85;
if i=76 then
max:=a[i];
if i>76 then
if a[i]>max then
max:=a[i];
write(a[i],' '); end;
writeln;
writeln(max); end.
a:array[1..100]of integer;
i,max,c:integer;
begin
for i:=1 to 100 do
begin
a[i]:=random(251)-85;
if i=76 then
max:=a[i];
if i>76 then
if a[i]>max then
max:=a[i];
write(a[i],' '); end;
writeln;
writeln(max); end.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: maratbalausa09
Предмет: Физика,
автор: damla0509
Предмет: Математика,
автор: eera9256
Предмет: Математика,
автор: кисуля35
Предмет: История,
автор: Маюми