декодуйте з використанням наведеної таблиці повідомлення,закодоване за наведеним правилом: а)53 43 13 52 21 52 42 б)62 43 51 34 31 11 33 33 65

194

336

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

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

алькамалька

Информатика

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

Var a: array [1..20] of integer; i,p: integer; n: real; m: longint; begin n: =0; p: =0; m: =1; write ('массив: '); for i: =1 to 20 do begin a[i]: =random(101)-50; write (a[i],' '); end; for i: =1 to 20 do begin n: =n+a[i]; end; n: =n/20; writeln; writeln; write ('среднее арифметическое = ',n); for i: =1 to 19 do begin if a[20]< > a[i] then p: =p+1; end; writeln; write ('кол-во чисел отличных от последнего в массиве = ',p); for i: =1 to 20 do begin if a[i]< 0 then m: =m*a[i]; end; writeln; write ('произведение отрицательных чисел массива = ',m); end.