чепез Паскаль

В одномерном массиве, заданном датчиком случайных чисел, подсчитать количество нулей. Размер 150

язык программирования любой?

пишу на Python:

s = str(input())

s = sorted(s[:len(s)-1].split(', '))

for word in s:

print(word, ' ', end='')

Pascal:

var s, copy_s, word_s:string;

i, n, count:integer;

a:array of string ;

begin

count:=0;

write('Введите перечисление слов через запятую без пробелов, в конце поставьте точку: ');

readln(s);

copy_s:= s;

while pos(',', copy_s) > 0 do begin

n:= pos(',', copy_s);

delete(copy_s, n, 1);

count:=count+1;

end;

count:= count + 1;

SetLength(a, count);

for i:=1 to count-1 do begin

n:= pos(',', s);

word_s:= copy(s, 1, n-1);

delete(s, 1, n);

a[i]:=word_s;

end;

word_s:= copy(s, 1, length(s)-1);

a[count]:= word_s;

for i:=1 to count-1 do

if a[i] > a[i+1] then begin

word_s:=a[i];

a[i]:=a[i+1];

a[i+1]:=word_s;

end;

for i:=1 to count do

writeln(a[i]);

end.

#include <iostream>

using namespace std;

int min(int v, int w){

   if (v > w){

       return w;

   }else{

       return v;

   }}

int minimum(int a, int b, int c){

   int min1, min2;

   min1 = min(a,b);

   min2 = min(min1,c);

   return min2;

}

int max(int v, int w){

   if (v > w){

       return v;

   }else{

       return w;

   }}

int maximum(int a, int b, int c){

   int max1, max2;

   max1 = max(a,b);

   max2 = max(max1,c);

   return max2;

}

int main() {

int a, b , c , d,min3,max3,e;

cin >> a >> b >> c;

min3 = minimum( a, b, c);

max3 = maximum( a, b, c);

e =  (max3 - min3 )/2;

d = (a + b + c)/3;

cout << d + e;

}

Объяснение:

решение на с++