Ответы
Ответ дал:
0
Відповідь:
Пояснення:
Program massiv;
Uses crt;
Var a:array [1..5] of integer;
min, s, i : integer;
Begin
Clrscr;
For i:=1 to 5 do
Begin
Writeln('Ââåä³òü', i, '-é åëåìåíò ìàñèâó ');
Readln (a[i]);
End;
s:=a[1];
min:=a[1];
For i:=2 to 5 do
Begin
s:= s*a[i];
If a[i]< min then min:=a[i];
End;
Writeln(' M³í³ìàëüíèé åëåìåíò ', min);
Writeln(' Lîáóòîê åëåìåíò³â s= ', s);
End.
Приложения:
Begin
Writeln('Введіть', i, '-éлемент масиву ');
Readln (a[i]);
End;
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад