ответ:
program arr1; // ввод с клавиатуры
var
i: integer;
a: array [1..10] of integer;
begin
for i : = 1 to 10 do begin
write ('введите ', i , 'число: ');
readln (a [i]);
end;
for i : = 1 to 10 do
write (a [i], ' ');
readln;
end.
program arr1; // ввод по формуле (i * 2) можно поменять на другую
var
i: integer;
a: array [1..10] of integer;
begin
randomize;
for i : = 1 to 10 do
a [i] : = i * 2;
for i : = 1 to 10 do
write (a [i], ' ');
readln;
end.
program arr1; // ввод рандомом - это то что на скриншоте экрана, только добавлено randomize; чтобы числа были не всегда одинаковые
var
i: integer;
a: array [1..10] of integer;
begin
randomize;
for i : = 1 to 10 do
a [i] : = random (50);
for i : = 1 to 10 do
write (a [i], ' ');
readln;
end.
объяснение:
ответ:
program arrmax;
var
i, i1, i2, amax: integer;
a: array [1..10] of integer;
begin
randomize;
for i : = 1 to 10 do // заполнение массива случайными числами
a [i] : = random (11);
for i : = 1 to 10 do // вывод на экран элементов массива
write (a [i], ' ');
amax : = -1;
i1 : = -1;
for i : = 1 to 10 do // поиск первого максимального элемента
if a [i] > amax then begin
amax : = a [i];
i1 : = i;
end;
writeln;
writeln ('индекс первого элемента массива с наибольшим значением = ', i1);
amax : = -1;
i2 : = -1;
for i : = 10 downto 1 do // поиск последнего максимального элемента
if a [i] > amax then begin
amax : = a [i];
i2 : = i;
end;
writeln ('индекс последнего элемента массива с наибольшим значением = ', i2);
readln;
end.
объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Что такое паскаль? и как его использовать? что в нем нужно делать? дайте полный ! только простыми словами. поставлю как лучшее решение кто ответит !