Дана матрица а. написать программу определения количества положительных и отрицательных элементов матрицы. язык visual basic.

143

344

Посмотреть ответы 2

Ответы на вопрос:

vipvikaviktoria

Информатика

4,7(7 оценок)

Private sub command1_click() dim myarray(3,3) as integer dim count_pos as integer dim cout_neg as integer dim i as integer dim j as integer count pos = 0, count_neg = 0 for i = 0 to 3 for j = 0 to 3 if (myarray(i,j) > 0) then count_pos = count_pos+1 else if (myarray(i,j) < 0) then count_neg = count_neg+1 else end if next j next i msgbox("положительных чисел " & count_pos & " ,а отрицательных " & count_neg); endsub

dashakoshelevap06xlg

Информатика

4,7(7 оценок)

Var a: array[1..2, 1..15] of integer; i, m, j, n: integer; begin for m: =1 to 2 do begin for n: =1 to 15 do begin for i: =m to 2 do begin for j: =n+1 to 15 do if a[m, n]=a[i, j] then writeln('индексы первого числа ', m, ' ', n, ' ', 'индексы второго числа ', i, ' ', j); end; end; end; end.