-
пожалуйста помогите с решением никак не могу решить Если завтра не сдам училка убьёт
-
Предмет:
Математика -
Автор:
haley35 - 4 года назад
-
Ответы 1
-
1) Периметр 30 см, Площадь 36 см(квадратных)2) Периметр 16 см, Площадь 16 см(квадратных)3) Длина 9 см, Периметр 34 см4) Ширина 5 см, Площадь 35 см(квадратных)
-
Автор:
smokewwrc - 4 года назад
-
0
-
-
Добавить свой ответ
Еще вопросы
-
9 есеп 90 бет 4 сынып Теңдіктер тура ма, тексер: 10784×3+10784=10784×4; 60080×5-60080=60080×4; 4684×8+5684×2=3684×6; 3748×6+3800=3800+3748×6
-
Предмет:
Математика -
Автор:
naima - 4 года назад
-
Ответов:
5 -
Смотреть
-
- один из углов параллелограмма равен 96°. Найдите меньший угол этого параллелограмма. ответ дайте в градусах.
-
Задание 1
Нахождение суммы (произведения, количества) элементов (обладающих заданным свойством).
Заполнить одномерный массив А из 10 элементов случайными числами из отрезка [-20,50].
Любую задачу на массив можно разбить на подзадачи. Так, в данной задаче две подзадачи: 1. формирование массива; 2. Вывод массива на экран. Поэтому программа решения данной задачи будет содержать процедуры: Vvod и Vivod.
Заметим, что заполнение и вывод на экран массива можно осуществить только поэлементно, то есть можно сначала присвоить значение первому элементу, затем второму и так далее.
Поскольку известно количество повторений команды ввода или вывода элементов массива, то при составлении программ на массивы используется цикл с параметром:
Program massiv1; Uses Crt;
Type Mas=Array [1..10] of Real;
Var a:Mas;
Procedure Vvod(Var x:Mas);
Var i:Integer;
Begin For i:=1 To 10 Do x[i]:=30*Random+20;{(B-A)*random+A}
End;
Procedure Vivod(Var x:Mas);
Var i:Integer;
Begin For i:=1 To 10 do Write(x[i]:8:2)
End;
Begin
Vvod(a); Vivod(a); End.
Дополним программу, решив задачу: найти среднее арифметическое положительных элементов массива процедурой:
Procedure sr_arif(Var x:Mas;Var c:Real);
Var i,k:Integer;
Begin c:=0;k:=0;For i:=1 To 10 Do
If x[i]>0 Then Begin c:=c+x[i];k:=k+1 End; c:=c/k End;
В программу добавятся строки:
sr_arif(a,s); Writeln('Среднее ариф. положительных элементов = ',s:8:2); Модифицируйте программу для решения следующих задач:
1)Найти сумму элементов, кратных заданному числу;
2)Найти количество отрицательных элементов.
3)Найти произведение элементов, меньших десяти.
помогите пожалуйста:))))))))) это 10-11 класс.-
Предмет:
Информатика -
Автор:
estebanv5it - 4 года назад
-
Ответов:
1 -
Смотреть
-
-
помогите плиз найти слова: внешность, высокий, красивый, описание, телосложение, светлый
-
Предмет:
Английский язык -
Автор:
sherlyn - 4 года назад
-
Ответов:
5 -
Смотреть
-
Топ пользователей
-
Fedoseewa27
35890 -
Askold
2792 -
Pikachu
2224 -
hobbesbowers
2116 -
kaylynnbarron676
1818 -
女fei
1240 -
yulia-kaplina
1156 -
Poinntt
946 -
Bars
930 -
Queenmagic18
754
How much to ban the user?
1 hour
1 day
100 years