Надо сделать в паскале
1)Дан одномерный массив вещественных чисел. Найти минимальный элемент массива.
2) Дана последовательность 7 чисел. Вычислите сумму элементов данной последовательности меньших нуля.
Спасибо
Ответы
Ответ дал:
0
vara:array[1..100]of integer;
i,n,m:integer;
begin
m:=999;
Writeln('введите размерность массивов:');
Readln(n);
For i:=1 to n do
Readln (a[i]);
for i:=1 to n do
begin
if(a[i]<m) then
m:=a[i];
end;
writeln(m);
end.
ДЕРЖИ ПЕРВОЕ ЗАДАНИЕ!
i,n,m:integer;
begin
m:=999;
Writeln('введите размерность массивов:');
Readln(n);
For i:=1 to n do
Readln (a[i]);
for i:=1 to n do
begin
if(a[i]<m) then
m:=a[i];
end;
writeln(m);
end.
ДЕРЖИ ПЕРВОЕ ЗАДАНИЕ!
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад