Дано: массивы а(8),в(11). определить в каком массиве отрицательное число встречается раньше. номер первого отрицательного элемента в массиве находить в подпрограмме.

294

410

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

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

egorbelov06

Информатика

4,8(72 оценок)

Type v=array[1..11] of integer; function firstnegative(a: v; n: integer): integer; var i: integer; begin i: =0; result: =0; repeat i: =i+1; if a[i]< 0 then result: =i until (result> 0) or (i> n) end; const m=8; n=11; var a,b: v; i,p,q: integer; begin randomize; for i: =1 to m do a[i]: =random(100)-50; for i: =1 to n do b[i]: =random(100)-50; p: =firstnegative(a,m); q: =firstnegative(b,n); writeln('массив а'); for i: =1 to m do write(a[i]: 5); writeln; writeln('массив b'); for i: =1 to n do write(b[i]: 5); writeln; if p< =q then writeln('номер первого отрицательного элемента в массива а: ',p) else writeln('номер первого отрицательного элемента в массива b: ',q) end. тестовый прогон: массив а 37 14 -25 32 30 -29 38 27 массив b 33 -36 23 -17 -3 -16 -33 33 -48 -39 30 номер первого отрицательного элемента в массива b: 2

yvtcrvt

Информатика

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

Var n, s: integer; begin readln(n); n : = abs(n); while n < > 0 do begin s : = s + trunc(power(n mod 10, 3)); n : = n div 10; end; writeln(s mod 3 = 0); end.