Привет,помогите составить программу и блок-схему по массивам "В заданном массиве найти сумму всех элементов,удовлетворяющих неравенству
10-11 класс
|
10<=а(i)<=20.Вывести исходный массив и результат"
uses crt;
var a:array[1..100] of real;
i,n:integer; s:real;
begin
clrscr;
s:=0;
randomize;
write('vvedite kol-vo elementov:');
read(n);
for i:=1 to n do
begin
a[i]:=random(100)-50;
if (a[i]>=10) and (a[i]<=20) then s:=s+a[i];
end;
write('s=',s);
end.
Другие вопросы из категории
2)В таксопарке 10 автомобилей "Волга", 7 автомобилей "Лада" и 8 автомобилей "Вольво". Сколько информации несет сообщение о марке автомобиля?
3)Была получена телеграмма: "Встречайте, вагон 7". Известно, что в составе поезда 16 вагонов. Какое количество Информации было получено
Ребята нужно с решением, прошу вас помогите бро.
вещественное число цена 1 кг конфет. Вывести стоимость 1, 2, ., 10 кг конфет.
Читайте также
у= если x<-3 то
y= √1 - x²
если 1,5<x-3, то
y= в числителе 1 в знаменателе модуль x +2
если x>1,5, то
y=tg x
Составить словесное описание алгоритма, составить блок схему, описать используемые элементы
a) массив состоял из 15 элементов вещественного типа;
b) значения элементов массива должны меняться в интервале от 0 до 5;
c) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма
Program massiv;
const n=10;
Var a: array [1..n] of integer;
s,i integer;
Begin
writeln (‘ исходный массив.‘);
For i:= 1 to n do
begin
a [ i] := random (10);
write (‘a[‘i'] =', a[i], '');
end;
s:=0;
For i:= 1 to n do
s:= s+a[i];
Writeln (‘ сумма всех элементов массива S=‘, s);
end.
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
английские слова, записанные строчными буквами, в тетрадь. Выполняя задание, она комментирует его. Даша произносит слово "Опять" каждый раз, когда пишет букву, которая уже встречалась в слове раньше.
Составьте программу, которая по слову определяет: сколько раз Даша произнесёт "Опять".
Примеры:
Исходное слово apple Ответ 1 раз
Исходное слово potato Ответ 2 раза
Ваша программа должна
Запросить слово;
Подсчитать сколько раз, переписывая это слово, Даша произнесёт "Опять" и вывести это число на экран.
program dasha;
var s: string;
x, l, i, y, j: byte;
begin
writeln('введите слово');
readln(s);
l := length(s);
y := 0;
for i:=1 to 1-1 do
for j:=i+1 to l do
if (s[i] = s[j]) then y := y+1;
writeln('Даша скажет опять', y, ' раз');
end.
наибольшему элементу в этом массиве. Вывести значение наибольшего элемента.