-
составить кросворд по теме *океаны земли*
-
Предмет:
Другие предметы -
Автор:
hanna19 - 5 лет назад
-
Ответы 1
-
могу отправить вопросы:1.Самый большой океан.Тихий.2.Глубокая впадина ... желоб.Марианский3.Самый малый океан.Ледовитый4.Тихий океан Расположен между материками Евразией иАвстралией где?на западе.5.Жизнь в океане представлена обильно и разнообразно (полюс).Тропический6.
-
Автор:
salem5v4r - 1 год назад
-
9
-
-
Добавить свой ответ
Еще вопросы
- на какие течения вел расчет Тур Хейердал при своем путешествии?
-
Осуществите практически следуйщие химические превращения: CaCI2=> CaCO3=>CO2 Составьте уравнения соответствующих химических реакций в молекулярном и ионном виде.
-
Очень нужна помощь. Помогите найти ошибки - Паскаль.
Условие: Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами.
Не совсем то выводит, и модуль может как-то через abs надо.
program proizvedenie;
var q,z,w,i,n,i1,i2:integer;
a:array[1..1000] of real;
amin,amax,pr:real;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite (output);
readln(n);
for i:=1 to n do read (a[i]);
amin:=a[1];
for i:=1 to n do
begin
if a[i]<amin then
begin
amin:=a[i];
i1:=i;
end;
end;
amax:=a[1];
for i:=1 to n do
begin
if a[i] > amax then
amax:=a[i];
i2:=i;
end;
if i2>i1 then begin
q:=i1;
w:=i2;
end
else begin
q:=i2;
w:=i1;
end;
if (w-q)>1 then begin
pr:=1;
for z:=q to w do
pr:=pr*a[z];
end
else write (0);
close (input);
close (output);
end.-
Предмет:
Информатика -
Автор:
porter52 - 5 лет назад
-
Ответов:
0 -
Смотреть
-
-
у какого дерева ствол всегда белый?
-
Предмет:
Другие предметы -
Автор:
cox - 5 лет назад
-
Ответов:
2 -
Смотреть
-
Топ пользователей
-
Fedoseewa27
35898 -
Askold
2792 -
Pikachu
2228 -
hobbesbowers
2116 -
kaylynnbarron676
1818 -
女fei
1240 -
yulia-kaplina
1158 -
Poinntt
946 -
Bars
930 -
Queenmagic18
754
How much to ban the user?
1 hour
1 day
100 years