Задан двумерный массив размером M на N. Вычислить y = с / x

@asja · Регистрация: 20.03.2017

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

Задан двумерный массив размером M на N. Вычислить y=с/x , где с - количество элементов кратных 4, а х - количество элементов кратных 5.

@Hitoku · 21.03.2017, 12:47

Pascal

var
  a:array[1..100,1..100] of integer;
  x,c,n,m,i,j:byte;
begin
  randomize;
  x:=0; c:=0;
  write('N,M = '); readln(n,m);
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(51); write(a[i,j]:3,' ');
      if a[i,j] mod 4 = 0 then c:=c+1;
      if a[i,j] mod 5 = 0 then x:=x+1;
    end;
    writeln;
  end;
  write('C = ',c,'; X = ',x,'; Y = ',c/x:0:2);
end.

@Puporev · 21.03.2017, 12:59

Сообщение от Hitoku

,c/x:0:2

А если х=0?

@Hitoku · 21.03.2017, 13:03

Puporev, не подумал... Спасибо

Pascal

16
17

if x>0 then write('C = ',c,'; X = ',x,'; Y = ',c/x:0:2)
  else write('X = 0');

@Puporev · 21.03.2017, 14:45

Pascal

1
2
3

writeln('C = ',c,' X = ',x);
if x<>0 then write(' Y = ',c/x:0:2)
else write('Y не определено');

@asja 0 / 0 / 1 Регистрация: 20.03.2017 Сообщений: 14
		1
	Задан двумерный массив размером M на N. Вычислить y = с / x 21.03.2017, 12:34. Показов 1336. Ответов 4 Метки нет (Все метки) Задан двумерный массив размером M на N. Вычислить y=с/x , где с - количество элементов кратных 4, а х - количество элементов кратных 5. 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.03.2017, 12:59	3
	Сообщение от Hitoku ,c/x:0:2 А если х=0? 0

	21.03.2017, 14:45

Опции темы

Задан двумерный массив размером M на N. Вычислить y = с / x

Решение