Найти процент количества четных элементов массива А от общего количества четных элементов в массивах A и B.

@Margoo123 · Регистрация: 05.04.2014

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

даны 2 целочисленных массива разной размерности А и В. Определить какой процент составляет количество четных элементов массива А от общего количества четных элементов в этих массивах.

@Puporev · 10.05.2014, 15:54

Pascal

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure massiv(var a:mas;var n:byte;c:char);
var i:byte;
begin
repeat
write('Размер массива ',c,' от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i]:=1+random(50);
  write(a[i]:4)
 end;
writeln;
end;
function percent(a,b:mas;n,m:byte):real;
var i,ka,k:byte;
    p:real;
begin
ka:=0;
for i:=1 to n do
if a[i] mod 2=0 then ka:=ka+1;
k:=ka;
for i:=1 to m do
if b[i] mod 2=0 then k:=k+1;
percent:=ka*100/k
end;
var a,b:mas;
    n,m:byte;
begin
randomize;
massiv(a,n,'A');
massiv(b,m,'B');
writeln('Процент четных в массиве A к общему числу четных=',percent(a,b,n,n):0:2);
end.

@Margoo123 0 / 0 / 0 Регистрация: 05.04.2014 Сообщений: 8
		1
	Найти процент количества четных элементов массива А от общего количества четных элементов в массивах A и B. 10.05.2014, 14:46. Показов 2031. Ответов 1 Метки нет (Все метки) даны 2 целочисленных массива разной размерности А и В. Определить какой процент составляет количество четных элементов массива А от общего количества четных элементов в этих массивах. 0

Опции темы

Найти процент количества четных элементов массива А от общего количества четных элементов в массивах A и B.

Решение