Головна | Реєстрація | Вхід | RSS | Середа, 04.24.2024, 1:17 PM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
Знаходження мінімального елемента у масивіprogram masiv; var i,n,e: integer; m: array [1..10000] of real; begin writeln ('vvedit chislo'); readln (n); for i:=1 to n do readln (m[i]); e:=1; for i:=2 to n do begin if m[i]<m[e] then e:=i; end; writeln (m[e]:2:2); readln end. |
|
Guide-for-students © 2024 |
Створити безкоштовний сайт на uCoz |