Задан линейный массив С из N элементов. Подсчитайте произведение элементов массива, которые больше 20, но меньше 30. (Составьте блок-схему и
10-11 класс
|
программу)
var c:array[1..100] of integer;
n,i,proizv:integer;
begin
write('введите кол-во элементов массива');
read(n);
For i:=1 to n do
c[i]:=random(50);
proizv:=1;
For i:=1 to n do
if c[i]>20 then
if c[i]<30 then
proizv:=proizv*c[i];
For i:=1 to n do
write(c[i],' ');
write('произведение = ',proizv);
end.
блок-схему нет возможности скинуть, извини
написал на языке паскаля
Другие вопросы из категории
Задача на Pascal
символов используется кодировка Unicode, при которой каждый символ кодируется 16 битами. Определите информационный объём реферата.
т.е. A[0] = 6; A[1] = 4 и т.д.
c := 0;
for i := 4 to 9 do
if A[i - 1] < A[i] then
begin
c := c + 1;
t := A[i];
A[i] := A[i - 1];
A[i - 1] := t
end;
Определите значение переменной c после выполнения следующего фрагмента программы, записанного ниже на разных языках программирования.
С понятием переменной не связано:
1. Имя
2. Значение
3. Тип
4. Свойство
Читайте также
Задача
Двумерный массив L задан при помощи генератора случайных чисел из интервала [+1,+5].
Подсчитайте произведение элементов данного массива, которые больше 10, но меньше 30
ООООООООООчень срочно !!!!!
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
экран все элементы значение которых больше 20.
наибольшему элементу в этом массиве. Вывести значение наибольшего элемента.