Дан массив В(10).Найти произведение элементов, не кратных трем

@~~Vlad90~~ · 09.10.2014, 16:43. **Показов** 2860. **Ответов** 1

Дан массив В(10). Найти произведение элементов, не кратных трем.

@Joy · 09.10.2014, 16:49

Pascal

var
  b:array[1..10] of integer;
  p:real;
  i:integer;
begin
  p:=1.0;randomize;
  for i:=1 to 10 do begin
    b[i]:=random(100)+1;
    if b[i] mod 3 <>0 then p:=p*b[i];
    write(b[i]:4);
  end;
  writeln;
  writeln(p:10:2);
end.

@~~Vlad90~~ Заблокирован
		1
	Дан массив В(10).Найти произведение элементов, не кратных трем 09.10.2014, 16:43. Показов 2860. Ответов 1 Метки нет (Все метки) Дан массив В(10). Найти произведение элементов, не кратных трем. 0

Опции темы

Дан массив В(10).Найти произведение элементов, не кратных трем

Решение