01.05.2010, 16:35. Просмотров 448. Ответов 3
Здравствуйте! Помогите пожалуйста перевести код программы в паскале на С++:
| Pascal |
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
| Program Example;
uses crt;
Type mas=array [-100..50] of Integer;
var a,m: mas;
n,s,k,mini: Integer;
Procedure Vvod(var a: mas);
var i: Integer;
begin
Writeln('Введите количество элементов');
Readln(k);
Writeln('Введите элементы');
For i:=1 to k do
Readln(a[i]);
end;
Procedure Vivod(a: mas);
var i: Integer;
begin
For i:=1 to k do
Write(a[i]:3);
Writeln;
end;
Function min(a:mas): Integer;
Var i, mini,nomer : Integer;
Begin
mini:=a[2];
FOR i:= 2 TO k do
begin
IF (i MOD 2 = 0) AND (a[i]<mini) THEN mini:= a[i];
end;
min:=mini;
End;
Begin
writeln('Начало программы');
writeln('Ввод целочисленного массива Х');
Vvod(a); {обращение к процедуре формирования}
Vivod(a);
s:=min(a);
writeln('минимальный чётный элемент массива = ', s);
writeln('Ввод целочисленного массив Y ');
Vvod(a); {обращение к процедуре формирования}
Vivod(a);
s:=min(a);
writeln('минимальный чётный элемент массива = ', s);
Readln;
End. |
|
