Ответ:
var a:array[1..1000]of longint;
b:array[1..500]of longint;
i,j,n,k,l,max,min:longint;
begin
write;
readln(n);
for i:=1 to n do
write('a[',i,']=');readln(a[i]);
Это проверенный ответ)
Объяснение:
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var a:array[1..1000]of longint;
b:array[1..500]of longint;
i,j,n,k,l,max,min:longint;
begin
write;
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
Это проверенный ответ)
Объяснение: