Помогите решить задачи по теме:"Массивы"

[Gemy]

1. Найти наибольший элемент данного массива и указать номер этого элемента.
2. "Сожмите" массив , "выбросив" каждый второй его элемент(дополнительные массивы использовать не разрешается)

Помогите пожайлуста!!!Это для меня китайская грамота!

[Serebro]

Сообщение от Gemy

1. Найти наибольший элемент данного массива и указать номер этого элемента.
2. "Сожмите" массив , "выбросив" каждый второй его элемент(дополнительные массивы использовать не разрешается)

Помогите пожайлуста!!!Это для меня китайская грамота!

Массив, кажется, одномерный?

[bset111]

program tt;
const n=9;
var a:array[1..n]of integer;i,max:integer;
begin
 for i:=1 to n do
  begin
   write('a[',i,']=');
   readln(a[i]);
  end;
 max:=0;
 for i:=1 to 9 do
  if a[i] > max then max:=a[i];
 writeln('Максимальный элемент данного массива: ',max);
end.

Вроде должно быть так

[Armorer]

program tt;
const n=9;
var a:array[1..n]of integer;i,max:integer;
begin
 for i:=1 to n do
  begin
   write('a[',i,']=');
   readln(a[i]);
  end;
 max:=0;
 for i:=1 to 9 do
  if a[i] > max then max:=a[i];
 writeln('Максимальный элемент данного массива: ',max);
end.

правильнее так:

max:=a[1];
 for i:=2 to n do
  if a[i] > max then max:=a[i];

в первом случае будет неправильный результат, если ввести отрицательные числа.

[Gemy]

Спасибо за решение!Очень признательна!

[Gemy]

Сообщение от Serebro

Массив, кажется, одномерный?

В первой задаче массив одномерный,а во второй двухмерный!

[IT-man]

"Сожмите" массив , "выбросив" каждый второй его элемент(дополнительные массивы использовать не разрешается)

а во второй двухмерный!

И как определить какой из них каждый второй?

[tyui567]

Составить программу, которая создаст файл, состоящий из 15-ти целых чисел из диапазона от 0 до 30.Затем выведет на экран все элементы созданного файла и сумму чётных элементов этого файла.