Var ar: array[1..30] of integer; i,max: integer; begin; randomize; writeln('array'); for i: =1 to 30 do begin; ar[i]: =random(1,100); write(ar[i]: 4); end; for i: =1 to 30 do if max< ar[i] then max: =ar[i]; writeln; writeln('result: ',max); end.
Спасибо
Ответ дал: Гость
uses crt; var a,b,c,min: integer; beginwriteln('введи три числа: '); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln('наименьшее из этих чисел: ',min); readln; end.
Ответ дал: Гость
по формуле n= найдем, сколько было круглых фигурок - = 4; всего фигурок было 15+4=19. ответ: 19
Популярные вопросы