Помогите пожалуйста!:* Очень нужно!! Заранее огромное спасибо:*
5-9 класс
|
1
var
s:real;
i,n:integer;
M:array[1..100]of real;
begin
for i:=1 to 100 do
begin
M[i]:=sin(i)*cos(i);
if M[i]<>0 then
begin
s:=s+M[i];
n:=n+1
end
end;
s:=s/n;
writeln('Среднее арифметическое ненулевых элементов: ',s)
end.
2
var
i,f:integer;
X:array[1..10]of real;
begin
f:=1;
for i:=1 to 10 do
begin
write('Введите число: ');
readln(X[i]);
end;
for i:=1 to 9 do
if X[i+1]>X[i] then f:=0;
if f=1 then writeln('Да, образуют')
else writeln('Нет, не образуют');
end.
Другие вопросы из категории
а)одним битом
в)одним байтом
с)буквой
д)10 битами
ПОЖАЛУЙСТА МНЕ СРОЧНО НАДО!!!
Читайте также
мыши на название вложенного меню 2)____________________________________.3) Перемещая мышь,выделить нужную команду в открывшемся вложенном меню. 4) Щёлкнуть мышью. Помогите пожалуйста очень надо.заранее большое спасибо!
2) программа проверяет является ли введенное число нечетным и при этом делится на 5
3) задача нахождения факториала числа
ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!!!!!
.
а)ночь-?-?-?-?-?-день
б)рота-?-?-?-?-?-полк
в)бант-?-?-?-?-?-коса
г)бег-?-?-?-?-?-?-?-шаг
д)море-?-?-?-?-?-?-суша
е)миг-?-?-?-?-?-?-?-век
помогите очень нужно,учительница ужасно строгая ненавидит меня помогите!
Программа должна спрашивать:
- сколько человек было поставлено на заявку.
- сколько человек присутствовало на занятиях.
- сколько стоит обед для одного учащегося.
Помогите пожалуйста, очень нужно, только правильно, заранее спасибо.