//Знаю, что это решение далеко от понятия "изящество" //Pascal ABC.NET v3.0 сборка 1111 var max1,max2,max3,i,maxi1,maxi2:integer; ar:array of integer; begin max1:=-2147483648; max2:=-2147483648; max3:=-2147483648; setlength(ar,1); readln(ar[0]); i:=0; repeat inc(i); setlength(ar,i+1); readln(ar[i]); until ar[i]=0; for i:=0 to i do if ar[i]>max1 then begin; max1:=ar[i]; maxi1:=i; end; for i:=0 to i do if (ar[i]>max2) and (i<>maxi1) then begin; max2:=ar[i]; maxi2:=i; end; for i:=0 to i do if (ar[i]>max3) and (i<>maxi1) and (i<>maxi2) then max3:=ar[i]; write('Max1=',max1,' Max2=',max2,' Max3=', max3); end.
C++Выделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#include <iostream>
#include <cstdlib>
#include <ctime>
using namespace std;
int main()
{
int N = 0;
double mult = 1.0;
srand(time(NULL));
cout << "VVedite N =";
cin >> N;
int *mas = new int[N];
for(int i = 0; i < N; i++)
{
mas[i] = rand() % N;
cout << "mas[" << i << "]= " <<mas[i] << endl;
if(mas[i] % 2 != 0)
{
mult*=mas[i];
}
}
delete []mas;
cout << endl;
cout << "MULT = " << mult << endl;
return 0;
}
Объяснение:
честно я не очень в этом шарю так что проверь )
//Pascal ABC.NET v3.0 сборка 1111
var
max1,max2,max3,i,maxi1,maxi2:integer;
ar:array of integer;
begin
max1:=-2147483648;
max2:=-2147483648;
max3:=-2147483648;
setlength(ar,1);
readln(ar[0]);
i:=0;
repeat
inc(i);
setlength(ar,i+1);
readln(ar[i]);
until ar[i]=0;
for i:=0 to i do
if ar[i]>max1 then
begin;
max1:=ar[i];
maxi1:=i;
end;
for i:=0 to i do
if (ar[i]>max2) and (i<>maxi1) then
begin;
max2:=ar[i];
maxi2:=i;
end;
for i:=0 to i do
if (ar[i]>max3) and (i<>maxi1) and (i<>maxi2) then max3:=ar[i];
write('Max1=',max1,' Max2=',max2,' Max3=', max3);
end.