Здравствуйте!!!
Помогите пожалуйста написать программу в ПАСКАЛЕ!
____________
задание во вложении
Приложения:
![](https://st.uroker.com/files/754/7544175fffdce146177c1bd0f13bd362.png)
Ответы
Ответ дал:
1
const
n=10;
var
j,i:integer;
a:array[1..n]of real;
s:real;
begin
for i:=1 to n do
readln(a[i]);
writeln;
writeln('ARRAY: ');
for i:=1 to n do
write(a[i]:8:2);
j:=1; i:=1;
while (a[i]>0)and(i<n) do
begin
i:=i+1;
j:=i;
end;
if j<>n then
begin
for i:=j+1 to n do
s:=s+abs(a[i]);
writeln;
writeln(s:8:2);
end
else
writeln('единственный отрицательный - последний элемент')
end.
n=10;
var
j,i:integer;
a:array[1..n]of real;
s:real;
begin
for i:=1 to n do
readln(a[i]);
writeln;
writeln('ARRAY: ');
for i:=1 to n do
write(a[i]:8:2);
j:=1; i:=1;
while (a[i]>0)and(i<n) do
begin
i:=i+1;
j:=i;
end;
if j<>n then
begin
for i:=j+1 to n do
s:=s+abs(a[i]);
writeln;
writeln(s:8:2);
end
else
writeln('единственный отрицательный - последний элемент')
end.
nemolkl:
Переменные необходимо определять ! s:=s+abs(a[i]);
while a[i]>0 do i:=i+1;
j:=i;
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
6 лет назад
6 лет назад
7 лет назад