скиньте кодд в програмі паскаль
Ответы
Ответ:
1.
program Project1;
var
k: integer; // Вспомогательная переменная для организации циклов.
n: int64; // Переменная для хранения значения произведения элементов массива.
x: array [1..7] of integer; // Переменная для хранения исходного массива.
begin
randomize;
writeln('Исходный массив:');
for k:= 1 to 7 do
begin
x[k]:= 1 + random(100); // Заполнение массива случайными числами.
write(x[k]:5); // Вывод массива на экран.
end;
writeln;
n:= 1;
for k:= 1 to 7 do
n:= n*x[k];
writeln('Произведение элементов массива: ',n);
readln;
end.
2.
program chisla;
uses crt;
var a: array [1..10] of integer;
i,sum: integer;
begin
clrscr;
sum:=0;
for i:=1 to 10 do
begin
write('a[',i,']= ');
readln(a[i]);
if a[i] mod 2<>0 then sum:= sum+a[i];
end;
write('sum= ',sum);
readln;
end.
3.
int m[5] = {1, -1, 0, 4, 2};
int min = m[0];
for(int i = 0; i < 5; ++i)
{
if(m[i] < min)
{
min = m[i];
}
}
4.
#include <math.h>
#include <iostream>
using namespace std;
int maximum(int *u, int nn)
{
int max,i;
max = 0;
for(i=0;i<nn;i++){
if(*(u+i)>max){max=*(u+i);}
}
return(max);
}
int main()
{
int i,n,m;
srand(time(0));
cout<<"n="; // Размер первого массива
cin>>n;
cout<<"m="; // Размер второго массива
cin>>m;
int *a,*b;
a = new int [n];
b = new int [m];
for(i=0;i<n;i++){
*(a+i)=rand()%8+1;
}
for(i=0;i<m;i++){
*(b+i)=rand()%8+1;
}
cout<<"Первый массив"<<endl;
for(i=0;i<n;i++){
cout<<*(a+i)<<" ";
}
cout<<endl;
cout<<"Второй массив"<<endl;
for(i=0;i<m;i++){
cout<<*(b+i)<<" ";
}
cout<<endl;
cout<<"Максимальное число первого массива="<<maximum(a,n)<<endl;
cout<<"Максимальное число второго массива="<<maximum(b,m)<<endl;
cout<<"s="<<maximum(a,n)+maximum(b,m);
}