Написать программу, которая вычисляет значение y = 3 X, где X – количество нулевых элементов одномерного масс

@reilsokol · Регистрация: 19.05.2014

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

Написать программу, которая вычисляет значение y = 3 X, где X – количество
нулевых элементов одномерного массива А. Для вычисления значения у
использовать процедуру.
Решите пожалуйста, очень срочно. Буду благодарен очень) P.s. по делу пожалуйста)

@Svager · 04.06.2014, 00:48

Pascal

uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;
var  i,j,n,y,x:integer;
     a:mas;
procedure count(var x:mas;n:integer;var k:integer);
 var i,j:integer;
begin
 for i:=1 to n do
  if x[i]=0 then
   inc(k);
end;
begin
 repeat
  write('Ðàçìåð ìàññèâà n=');
   readln(n);
 until n in [1..nmax];
 writeln('Èñõîäíûé ìàññèâ :');
  for i:=1 to n do
   begin
    a[i]:=random(3);
    write(a[i]:4);
   end;
 count(a,n,x);
  writeln;
 if x=0 then
  writeln('Íóëåé íåòó..')
 else
   writeln('Y = 3*',x,' = ',3*x);
end.

@reilsokol · 04.06.2014, 00:55 **[ТС]**

Спасибо большое дружище)

@reilsokol 0 / 0 / 0 Регистрация: 19.05.2014 Сообщений: 27
		1
	Написать программу, которая вычисляет значение y = 3 X, где X – количество нулевых элементов одномерного масс 04.06.2014, 00:27. Показов 1055. Ответов 2 Метки нет (Все метки) Написать программу, которая вычисляет значение y = 3 X, где X – количество нулевых элементов одномерного массива А. Для вычисления значения у использовать процедуру. Решите пожалуйста, очень срочно. Буду благодарен очень) P.s. по делу пожалуйста) 0

@reilsokol 0 / 0 / 0 Регистрация: 19.05.2014 Сообщений: 27
	04.06.2014, 00:55 [ТС]	3
	Спасибо большое дружище) 0

Опции темы

Написать программу, которая вычисляет значение y = 3 X, где X – количество нулевых элементов одномерного масс

Решение