Question

Нужна помощь в Visual Basic

Найти и вывести на экран все положительные элементы массива А(а1,а2,...аn). Одновременно вывести на экран их порядковые номера.

Для матрицы A размером m × n вычислить среднее арифметическое каждого столбца.
Заранее благодарен

Answer 1

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 uses crt; var a: array[1..10] of integer;     i: integer; begin write('Исходный массив: '); for i:=1 to 10 do begin a[i]:=random(21)-10; write(a[i],' '); end; writeln; write('Положительные элементы: '); for i:=1 to 10 do begin if a[i]>0 then write(a[i],' '); end; writeln; write('Номера положительных элементов: '); for i:=1 to 10 do begin if a[i]>0 then write(i,' '); end; end.