Заполните массив 20 числами от -30 до 10. Най­ди­те индекс и значение первого положительного элемента массива. Вывести на экран массив, а затем индекс и значение первого положительного элемента. ​

Одномерные массивы

Ранее рассматривались типы данных (скалярные). Все скалярные типы, кроме вещественных, являются порядковыми типами (значения  любого порядкового типа могут быть упорядочены так, что компьютерное представление каждого следующего значения есть двоичное число, на единицу больше предыдущего.

Из элементов типов в языке Pascalможно образовывать составные типы данных (структуры данных). Примером такой структуры является векторный тип данных – одномерный массив.

Массив - это структура, представляющая собой упорядоченную совокупность элементов одного типа, объединенных одним именем.

Каждому массиву, используемому в программе, выделяется место в памяти.

Массиву отводится не одна ячейка, а последовательность расположенных друг за другом ячеек, в каждую из которых записывается значение соответствующего элемента.

Для получения доступа к элементу массива используется индекс

Объяснение:

var

a:array[1..20] of integer;

i,pp:integer;

Begin

randomize;

pp:=-1;

for i:=1 to 20 do begin

a[i]:=random(41)-30;

write(a[i],' ');

if (a[i]>0) and (pp=-1) then pp:=i;

end;

Writeln();

Writeln(pp);

end.

Если положительных элементов не было то выведется -1

Program massiv123;   const n=30;   type massiv=array[1..n] of integer;   var i: integer; a: massiv;   begin  for i: =1 to n do  if i mod 3=0 then a[i]: =3                else a[i]: =1;   for i: =1 to n do  if a[i]=3 then a[i-1]: =2;   write('массив: ');   for i: =1 to n-1 do  write(a[i],',');   write(a[n],'; ');   end. если надо изменить кол-во цифр, то изменяйте в  const n=кол-во;