Решить задание по массиву.
Приложения:
mnv1962:
Вообще эти здания делаются не через массив. А через последовательности
Сможете помочь, пожалуйста?
Язык какой? И делать через массив все-таки? Массивы не проходят обячно в 9 классе
Паскаль. Да, это точно массив. У нас информационный класс, а мне пришлось много пропустить, поэтому вникнуть не могу.
Сейчас
Жду.
Вообще это нужно делать просто циклом While и массив не нужен. Но смотри, как хочешь
Дело в том, что мы это на листках будем сдавать. Такая вот тупость.
Ответы
Ответ дал:
1
const
n=300;
var
a:array[1..n]of integer;
i,k:integer;
s:real;
begin
i:=1;
readln(a[i]);
while a[i]<>0 do
begin
if (abs(a[i])>=100)and(abs(a[i])<=500)then
begin
k:=k+1;
s:=s+a[i];
end;
readln(a[i]);
end;
if k<>0 then
writeln('Sr = ',s/k:4:2)
else
writeln('Net');
end.
n=300;
var
a:array[1..n]of integer;
i,k:integer;
s:real;
begin
i:=1;
readln(a[i]);
while a[i]<>0 do
begin
if (abs(a[i])>=100)and(abs(a[i])<=500)then
begin
k:=k+1;
s:=s+a[i];
end;
readln(a[i]);
end;
if k<>0 then
writeln('Sr = ',s/k:4:2)
else
writeln('Net');
end.
Спасибо вам огромное.
Хорошо
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад