Првильно ли решена?

@Юленькаs · Регистрация: 19.04.2011

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

Задача:Даны два массива А и B,состоящие из 6 целых чисел. Вычислить сумму и произведение элементов, содержащихся как в А, так и в В.
Решение:

Pascal

program ulia3;
type z=array[1..100]of integer;
w=array[1..100]of integer;
var
A:w;B:z;
i,sum,proizv:integer;
begin
for i:=1 to 20 do
begin
A[i]:=random(100);
B[i]:=random(100);
writeln('A',A[i],' ','b',B[i]);
end;
sum:=0;
for i:=1 to 20 do
begin
if A[i]=B[i] then sum:=sum+A[i]
end;
proizv:=1;
for i:=1 to 20 do
begin
if A[i]=B[i] then proizv:=proizv*A[i]
end;
writeln('Summa=',sum,' ','proizvedenie=',proizv);
readln;
end.

@Small Lamer · 05.05.2011, 18:25

Нет,не правильно)

Добавлено через 5 минут

Pascal

var a,b:array[1..6] of longint;
    d:array[-1000..1000] of boolean;
    i,n,s,p:longint;
begin
  for i:=1 to 6 do
    begin
      a[i]:=random(10);
        d[a[i]]:=true;
      b[i]:=random(10);
      writeln('A-',a[i],'    B-',b[i]);
    end;
    s:=0;p:=1;
  for i:=1 to 6 do
    if d[b[i]] then begin s:=s+b[i];p:=p*b[i];end;
  writeln('Summa=',s,' Proizvedenie=',p);
end.

@Юленькаs · 05.05.2011, 18:34 **[ТС]**

Спасибочки)))))))))))))))))

@Юленькаs 0 / 0 / 0 Регистрация: 19.04.2011 Сообщений: 17
	05.05.2011, 18:34 [ТС]	3
	Спасибочки))))))))))))))))) 0

Опции темы