Определить максимальный элемент массива b(размерность 50) и его порядковый номер xi> 0. в паскале.

148

488

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

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

nikitakirillov3

Информатика

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

Var i,imax,max: integer; b: array[1..50]of integer; begin for i: =1 to 50 do begin b[i]: =random(100); write(b[i],' '); if b[i]> max then begin max: =b[i]; imax: =i; end; end; writeln; writeln('максимальное число: ',max,'; его номер: ',imax); end.

Serlous

Информатика

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

1. var a: real; x,y: integer; begin readln(x,a,y); writeln('1 kg konfet stoit ', a/x: 1: 2); writeln(y,' kg konfet stoyat ', a/x*y: 1: 2); readln; end. 2. var a,s,p: integer; begin readln(a); s: =a mod 10 + a div 10; p: =(a mod 10)*(a div 10); writeln(s); writeln(p); readln; end. 3. var a,b: integer; begin readln(a); b: =(a mod 10)*10+(a div 10); writeln(b); readln; end. это если без циклов.