:1)в одномерном массиве а(15) найти процент отрицательных элементов. 2)вывести на экран элементы одномерного массива а(20), оканчивающиеся на цифру 3. 3)вычислить произведение двузначных элементов массива а(13). 4)определить, является ли массив а(30) по возрастанию. в abc pascal !

249

386

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

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

feruzbek214

Информатика

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

1) uses crt; var a: array [1..15] of integer; i,k: integer; begin randomize; k: =0; for i: =1 to 15 do begin a[i]: =random(10)-3; if (a[i]< 0) then inc(k); write (a[i],' '); end; writeln; writeln (k/15*100,'%'); end. 2) uses crt; var a: array [1..20] of integer; i: integer; begin randomize; for i: =1 to 20 do begin a[i]: =random(30); write (a[i],' '); end; writeln; for i: =1 to 20 do if (a[i] mod 10 = 3) then write (a[i],' '); end. 3) uses crt; var a: array [1..20] of integer; i: integer; k: longint; begin randomize; k: =1; for i: =1 to 20 do begin a[i]: =random(30); write (a[i],' '); if (a[i]> 9) and (a[i]< 100) then k: =k*a[i]; end; writeln; writeln (k); end. 4) uses crt; var a: array [1..30] of integer; i: integer; flag: boolean; begin randomize; for i: =1 to 30 do begin a[i]: =random(30); write (a[i],' '); end; writeln; flag: =true; for i: =1 to 29 do if (a[i]> a[i+1]) then begin flag: =false; break; end; writeln (flag); end.