Турбо Паскаль с массивами

[denis15]

Составить программу вычисления функции
z=(c+S1+S2)*(k1+k2)/2;
S1-среднее арифметическое заданного массива А,
K1-количество нулевых элементов в нем;
S2 и K2 соответствующие элементы второго массива В.

Для нахождения Si и Ki использовать SUBROUTINE

[__STDC__]

вам не понятно слово "SUBROUTINE"? Так называют подпрограммы... т.е. реализовать программу надо с использованием процедур или функций..

[denis15]

Если честно я понимаю в паскале очень мало. Помогите составить ее

[__STDC__]

z=(c+S1+S2)*(k1+k2)/2;

что такое c?

uses 
	CRT;

const
	n = 10;

type
	arr = array[1..n] of integer;
	
procedure fill_out_arrays(var a,b:arr);
var
	i:byte;
begin
	for i:=1 to n do begin
		a[i] := random(5);
		b[i] := random(3);
		writeln('a[',i:2,'] = ',a[i],'; b[',i:2,'] = ',b[i],';');
	end;
end;

procedure get_s_k(var x1,x2:integer; var y1,y2:real; a,b:arr);
var
	i:byte;
begin
	for i:=1 to n do begin
		if (a[i] = 0) then 
			inc(x1);
		if (b[i] = 0) then 
			inc(x2);
		y1 := y1+a[i];
		y2 := y2+b[i];
	end;
	y1 := y1 / n;
	y2 := y2 / n;
end;

var
	a,b:arr;
	s1,s2,z:real;
	k1,k2:integer;
begin
	s1 := 0; s2 := 0; k1 := 0; k2 := 0;
	clrscr;
	randomize;
	fill_out_arrays(a,b);
	get_s_k(k1,k2,s1,s2,a,b);
	z := ({???c+}s1+s2)*(k1+k2)/2;
	writeln('Z = ',z:0:5);
	readkey;
end.

[denis15]

С-любое число

[__STDC__]

ну добавьте там тогда просто...

...
	s1,s2,z,c:real;
...
        readln(c);
...
	z := (c+s1+s2)*(k1+k2)/2;
...

[denis15]

Помогите с еще однйо прогой
Вычеслить сумму квадратов цыфр пятизначного числа
привет: a*10^4+a*10^3+c*10^2 и тд

[ОДИНОЧЕСТВО В СЕТИ]

а как нибудь поподробнее можно?!!!

[__STDC__]

сумма квадратов цифр легко вычисляется если представить число как строку.. что-то типа

...+sqr(ord(s[i]-48))+...

но то, что вы выше написали - это не сумма квадратов.