Программа на вычисление числа из массива

@КаринаТ_Т · Регистрация: 10.02.2014

Author24 — интернет-сервис помощи студентам

Всем привет,помогите перевести из Паскаля в Си,Спасибо

Код

Program MInarr;
  Uses Crt;
  Const
    n = 5; m = 8;
  Type
    arr = array [1..100] of integer;
  Var
    x1,x2 : arr;
    z : real;
 
  Procedure InPut(var a : arr;
                      n : byte);
    Var i : byte;
    Begin
      For i := 1  to n do
        read(a[i]);
    End;
 
  Function Min(a : arr;
               n : byte) : integer;
    Var i,j  : byte;
    Begin
      j := 1;
      For i := 2 to n do
        If a[j] > a[i] Then j := i;
      Min := a[j];
    End;
 
BEGIN
  ClrScr;
    Writeln('Введите элементы 1-го массива(',n,'):'); InPut(x1,n);
    Writeln('Введите элементы 2-го массива(',m,'):'); InPut(x2,m);
    z := (Min(x1,n) + Min(x2,m))/2;
    Writeln('z = ',z : 0:3);
  Readkey;
END.

@kasan · 26.05.2014, 10:10

C

#include <stdio.h>
#define n 5
#define m 8
 
void InPut(int a[],int n1)
{
int i;
for(i=0;i<n1;i++)
    scanf("%d",&a[i]);
}
 
int Min(int a[],int n1)
{
int i,minimum;
minimum=a[0];
for(i=1;i<n1;i++)
{
    if(a[i]<minimum)
        minimum=a[i];
}
 
return minimum;
}
 
 
int main()
{
int x1[100],x2[100];
double z;
 
printf("Enter 1 array:");
InPut(x1,n);
printf("Enter 2 array:");
InPut(x2,m);
 
z= (Min(x1,n)+Min(x2,m))/2;
 
printf("z = %.3lf",z);
 
return 0;
}

	26.05.2014, 10:10

Программа на вычисление числа из массива

Решение