Var i,p:integer;
begin
p:=1;
for i:=-20 to 30 do
if i mod 3 = 0 then p*=i;
writeln(p);
<span>end.</span>
Поставь мне благодарность и пять звёзд)))) и тогда я напишу ответ
Язык c++
Первая задача и вторая в одном проекте.
#include <iostream>
#include <cstdlib>// включает srand() и rand()
#include <ctime> // содержит time
int main(){
<span> float mas[79];
</span> double mult = 1;
srand(time(NULL));// при каждом запуске будут новые случайные числа<span>
for (int i=0; i<79; i++)</span><span> mas[i] = 0.1*rand();//заполнение массива случайными числами
</span>// Задача 2: произведение этих элементов:<span>
for (int i=0; i<79; i++) mult*=mas[i];</span><span>
std::cout << "mult = " << mult << std::endl;
</span> system("pause");
return 0;
<span>}
Третья:
#include <iostream>
#define x 3 //определяем максимальный размер массива, сейчас 3
using namespace std;
int main(){<span> float N[x];
</span><span> int i;</span><span>
for (i=0; i<x; i++){</span><span> cout << "N[" << i << "]= ";
</span><span> cin >> N[i];
</span><span> }
</span><span> cout << "-------------------" << endl;
</span><span> for (i=0; i<x; i++)</span><span>
cout << "N[" << i << "] / 2= " << N[i]/2 << endl; </span>
<span> system("pause");
</span><span>}
Четвертая:
#include <iostream>
#define N 3 //определяем максимальный размер массива, сейчас 3
using namespace std;
int main(){<span>
int mas[N], i, j;</span><span>
for (i=0; i<N; i++){</span><span>
cout << "mas[" << i << "]= ";
</span><span> cin >> mas[i];
</span><span> }</span><span>
cout << "-------------------" << endl;
</span><span> for (i=0, j=0; i<N; i++)
</span><span> if (mas[i] < -3) j++;
</span><span> cout << "summa mas[i] < -3 = " << j << endl; </span>
<span> system("pause");
</span><span>}
Пятая:
#include <iostream>
#include <cstdlib>// включает srand() и rand()#include <ctime> // содержит time
#define N 5
int main(){
<span> int mas[N], sum=0; </span>
<span> srand(time(NULL));// при каждом запуске будут новые случайные числа</span><span> for (int i=0; i<N; i++){</span><span>
mas[i] = rand();//заполнение массива случайными числами
</span><span> if (i%2) sum+=mas[i];</span><span>
}</span><span>
std::cout<<"sum= " << sum << std::endl;</span>
system("pause");
<span>}</span></span></span></span>
Program Begenjov1997;
const
n = 30; {Количество элементов массива}
m = 10000; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
i, sum: integer;
s:string;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for i:=1 to n do a[i]:=random(m+1);
{Ищем максимальный и минимальный элементы}
sum:=0;
for i:=1 to n do
if (a[i]<200) and (a[i] mod 5 = 0) then sum:=sum+a[i];
{Заменяем эти элементы найденной суммой}
for i:=1 to n do
if (a[i]<200) and (a[i] mod 5 = 0) then a[i]:=sum;
{Вывод}
writeln;
for i:=1 to n do writeln(a[i]);
end.