Предмет:
ИнформатикаАвтор:
messiahroachvar a,i,k,sum:integer;
T:array[1..10]of integer;
begin
k:=1;
for i:=1 to 10 do read(T[i]);
for i:=1 to 10 do begin
if(T[i]mod 2=0)then k:=k*T[i];
if(T[i]>5)then sum:=sum+t[i];
end;
write(sum,' ',k);
end.
Автор:
zoiehensleyДобавить свой ответ
Предмет:
ЛитератураАвтор:
angel71Ответов:
Смотреть
Предмет:
Русский языкАвтор:
biabloОтветов:
Смотреть
Предмет:
Английский языкАвтор:
gaugew1mfОтветов:
Смотреть