Решение задачи Array 52

#include <stdio.h>
int main(void)
{
    float a[10],b[10];
    int n;
 
    printf("N: ");
    scanf("%i",&n);
 
    int k;
    for (k=0; k<n; ++k){
        printf("a[%i] : ",k+1);
        scanf("%f",&a[k]);
    }
 
    for (k=0; k<n;++k){
        if (a[k]<5) b[k]=2*a[k];
        else b[k]=a[k]/2;
    }
 
    printf("B: \n");
    for (k=0; k<n; ++k) printf("  %i: %f\n",k+1,b[k]);
 
    return 0;
}

import random

N = random.randrange(2,11)
a = [random.randrange(1,11) for i in range(N)]
b = []
c = []

print("N:",N)
print("Array a:\n",a)

for i in range(0,N) :
    if a[i] < 5 :
        b.append(a[i] * 2)
    else :
        b.append(a[i] / 2)
    c.append(a[i] * 2 if a[i] < 5 else a[i] / 2)

print("Array b:\n",b)
print("Array c:\n",c)
									

program Array52;
var
  a,b:array[1..10] of real;
  N,k:Integer;
 
 
begin
  Write('N: ');
  Readln(N);
 
  Writeln('A: ');
  for k:=1 to N do
   begin
    write(k,' :');
    readln(a[k]);
   end;
 
  for k:=1 to N do
      if a[k]<5 then b[k]:=2*a[k]
      else b[k]:=a[k]/2;
 
  Writeln('B: ');
  for k:=1 to N do writeln(k,' :',b[k]);
end.